ttrackbar reagiert bei klcik und nicht nur beim dragen

[edosoft]

warum wird das dann schwieriger?

[keineahnung1]

hmm des wird einfach nix :-(

ich hab jetzt mal des hier gemacht

if(trackbar1.position = pos) then beep;

aber beim klicken macht der totzdem nicht piep

hmm kann mir vielelicht einer andere trackbars vorschlagen die einen mouseup mousedown event haben?

[Khabarakh]

Immer wenn, das Programm die Trackbar-Position verändert, wird ja auch das OnChange Event ausgelöst, du hörst in deinem Beispiel also alle 300ms einen Beep :wink: .

So müsste es gehen (als Beispiel):

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var x: Integer;
begin
  x:=Random(TrackBar1.Max);
  OldPos:=x;
  TrackBar1.Position:=x;
end;

Allerdings frage ich mich, wann man es schafft, die Trackbar-Position genau zu treffen, wenn sich diese alle 300ms ändert :lol: .

[edosoft]

wenn du beim teimer event die variable "lastpos" setzt und DANACH die trackbar position vestellst (trackbar.position := lastpos) dann (ich glaub der onchange evetn wird dan gqar nicht ausgeführt, falls doch:)wird doch im event verglichen "if(trackbar1.position=lastpos) then exit;" (exit bedeutet er bricht die funktion ab!) NICHT ausgeführt weil die neue position vom trackbar ist doch die gleiche als die variable lastpos.

[Khabarakh]

Hups, ich habe gedacht, deine timer1timer Porcedure wäre TForm1Create :-D . Hat mich etwas verwirrt, dass du da feste Zahlen zuweißt, aber war ja nur ein Beispiel :duck: .
OnChange wird aber auch bei Zuweisung im Programm aufgerufen.

[keineahnung1]

so jetzt hab ich den trackbar durch ne progressbar ersetzt, und siehe da der hat auch ein onmouseup event. naja dann hab ich ncoh wahlweiße n paar application.progressmessages reingehauen, und nun gehts :bouncing4: