Цитата:
|
Сообщение от ALexandr555
и так используем прочитай выше
|
Ну а в чом тогда собственно проблема? По выше описаному коду:
Тупо убери poschange и все будет работать...
Код:
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;
ЗЫ вот не давно добавили исходник плеера на бассе:
http://delphisources.ru/pages/source...my-player.html
Скачай, посмотри, может будет бас использовать, вместо медиа плеера. Во первых сразу багов меньше будет, а во вторых там уже реализовано все, что тебе надо, даже намного больше...