Zitat von
keineahnung1:
hmm nee des geht nicht, ich weiß garnicht wann des on change immer ausgelöst wird[..]
des geht recht einfach zu testen:
Delphi-Quellcode:
trackbar.Onchanche blabla
begin
beep;
end;
->jedes mal wenn der lautsprecher piept dann wars ein onchange.
dann machste das so:
---
Delphi-Quellcode:
//ganz oben bei globalen variablen
var
Form1: TForm1; {steht schon}
iLastPos: Integer; //hinzufügen
[blabla]
procedure timer1timer
begin
ilastpos := 123; //oder sonst ein wert halt
trackbar1.position := 123;
end;
procedure trackbar1change()
begin
if(trackbar1.position = ilastpos) then exit;
//machwas
end;