динамический MediaPlayer

[nick17]

Здравствуйте! У меня динамический MediaPlayer. Как сделать так, чтобы были и кнопочки управления 'Play', 'Stop', итд из TMediaPlayerа, и окно cool.avi MediaPlayerа выведенное в панели. И все это на форме. А то у меня сейчас форма, не ней панель, а в панели кнопочки управления 'Play', 'Stop', итд чем -то управляют, видимо cool.avi. А cool.avi нету. Не знаю, что и сделать))

procedure TForm1.FormCreate(Sender: TObject);
var
Panel1: TPanel;
MediaPlayer1:TMediaPlayer;
begin
  Panel1 := TPanel.Create(Self);
  Panel1.Parent := Self;

  MediaPlayer1 := TMediaPlayer.Create(Panel1);
  MediaPlayer1.Parent := Panel1 ;
  MediaPlayer1.Align := alClient ;
  MediaPlayer1.FileName := 'E:\cool.avi';
  MediaPlayer1.Open;
  MediaPlayer1.DeviceType := dtAutoSelect;
  MediaPlayer1.Display := Panel1;
  MediaPlayer1.DisplayRect :=  Panel1.ClientRect;
end;

[mihali4]

А cool.avi нету

А взять любой файл *.avi и переименовать его в cool.avi в голову не приходило ???
Или заменить в коде на другое название файла ?

[nick17]

да не)) у меня есть файл мой E:\cool.avi. он играется статическим MediaPlayerом))

15:50

типа окно команд MediaPlayer1 перешло в Panel1, а окна данных нету((

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом. Это - флуд.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[BOBAH13]

Сообщение от nick17

типа окно команд MediaPlayer1 перешло в Panel1, а окна данных нету((

А нормально сформировать вопрос можете?

[nick17]

самая главная проблемма у меня с вопросами - простите пожалуста! а вопрос у меня все таки получилось решить))

16:20

решение:

procedure TForm1.FormCreate(Sender: TObject);
var
Panel1: TPanel;
Panel2: TPanel;
MediaPlayer1:TMediaPlayer;
begin
  Panel1 := TPanel.Create(Self);
Panel1.Left :=300;
Panel1.Width:=400;
Panel1.Top := 300;
Panel1.Height:=400;
    Panel2 := TPanel.Create(Self);
  Panel1.Parent := Self;
  Panel2.Parent := Self;

  MediaPlayer1 := TMediaPlayer.Create(Panel1);
  MediaPlayer1.Parent := Panel1 ;
  MediaPlayer1.Align := alClient ;
  MediaPlayer1.FileName := 'E:\cool.avi';
  MediaPlayer1.Open;
  MediaPlayer1.DeviceType := dtAutoSelect;
  MediaPlayer1.Display := Panel2;
MediaPlayer1.DisplayRect :=  Panel2.ClientRect;
end;

Последний раз:
У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом. Это - флуд.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор