совместно с таймером работает
Код:
TrackBar2.Position:=MediaPlayer1.Position;
и из за этого срабатывает
Код:
procedure TfrmMyBrowser.TrackBar2Change(Sender: TObject);
var
a: integer;
begin
Timer2.Enabled := False;
MediaPlayer1.Pause;
MediaPlayer1.Position:=TrackBar2.Position;
a := MediaPlayer1.Position;
sec := a div 1000 mod 60;
min := a div 60000;
Timer2.Enabled := True;
MediaPlayer1.Play;
end;
и выходит тупое заедание
можно ли както сделать чтобы сробатывало TrackBar2Change только на действия мышки а не программного перемещения.