Hi,
Du musst es so machen:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
TrackBar1.OnChange := nil;
Trackbar1.Position := Mediaplayer1.Position;
TrackBar1.OnChange := Trackbar1.Change;
end;
, da sonst bei der Zuweisung der Position das Trackbar OnChange aufgerufen wird, was das chaos anrichtet
Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."