procedure TForm1.TrackBar2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MediaPlayer1.Position := TrackBar2.Position;
MediaPlayer1.Play;
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
Trackbar2.Position:=MediaPlayer1.Position;
end;
На OnChange этот цикл не работает, так как там через каждую секунду происходит заикание! Но вот в чем вопрос: неудобно хватать ползунок и тащить его в нужное место. Особо ленивый народ просто хочет ткуть мышкой по нужному месту и чтоб ползунок сам туда приплыл! Как это сделать?