[ALexandr555]

как нам выполнять действия переодически
тоесть ежесекундно выполнять
MediaPlayer1.Position:=TrackBar2.Position;

[UltraBloxX]

Привязать к таймеру (TTimer)

Интервал поставить на 1000
В процедуре на событие таймера прописать

Код:

MediaPlayer1.Position:=TrackBar2.Position;

А так же когда плеер не активен таймер можно отключать.

[ALexandr555]

совместно с таймером работает

Код:

 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 только на действия мышки а не программного перемещения.

[KOOL]

например так

Код:

var poschange:boolean;
...
procedure TfrmMyBrowser.TrackBar2MouseDown(Sender: TObject;X,Y:integer;Button:TMouseButton);
begin
poschange:=true;
end;

procedure TfrmMyBrowser.TrackBar2MouseUp(Sender: TObject;X,Y:integer;Button:TMouseButton);
begin
poschange:=false;
end;

procedure TfrmMyBrowser.TrackBar2Change(Sender: TObject);
var
a: integer;
begin
if poschange then
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;
end;

[ALexandr555]

все бы ничего но но в трек баре TrackBar2MouseDown такого нет

[v1s2222]

TrackBar2MouseDown там и не должно быть... Используйте TrackBar2Change...

[ALexandr555]

и так используем прочитай выше