02.02.2008, 21:08
|
|
Новичок
Регистрация: 17.01.2008
Сообщений: 1
С нами:
9639055
Репутация:
0
|
|
Только пару нюансов..
там не будет прокрутки.. прочих, порой просто необходимых вещей..
Для того чтобы сделать прокрутку надо добавить компонент Timer и ..вообщем вот код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ScrollBar1.Position:=Round(MediaPlayer1.Position/MediaPlayer1.Length*ScrollBar1.Max);
end;
а чтобы она нормально работала, надо еще создать событие по ScrollBar.Change
и туда дописать:
procedure TMainForm.ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
MPlayer.Position:=Round(ScrollBar.Position*MPlayer .Length/ScrollBar.Max);
MPlayer.Play;
end;
Хотя всё тоже самое можно сделать и для TrackBar.. если нужны "риски"(насечки)..
если нужен будет регулятор громкости(stereo\mono)..скажите.. выложу.. |
|
|