Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ScroLLBar в Delphi

Автор: G[]^IF 21.3.2004, 15:22

[color=red][/color][/size][size=8]
Можно ли в Delphi ScrollBar сделать полосой прокрутки в MediaPlayer'e,
например для того,чтобы мотать фильм ?

Автор: p0s0l 21.3.2004, 15:41

У scrollbar-а на OnChange повесь такое:

Код

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  MediaPlayer1.Position := ScrollBar1.Position;
end;

А после открытия файла для настройки скроллбара делай так:
ScrollBar1.Max := MediaPlayer1.Length;