Сообщения участника Satir
|
| Автор |
Текст |
Satir
#0
|
 Раздел: Компьютерный раздел Тема: DELPHI
/ Пн Апр 02, 2007 12:55 am
|
попробуй вот это...может поможет
-------------------------
procedure TForm1.TrackBar1Change(Sender: TObject);
var l,p: integer;
begin
MediaPlayer1.Stop;
l:=MediaPlayer1.TrackLength[0];
p:=TrackBar1.Position;
MediaPlayer1.StartPos:=round(p*2000/l);
MediaPlayer1.Play;
Form1.Caption:=IntToStr(MediaPlayer1.StartPos);
end; |
 |
|
|
