| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как развернуть окно на весь экран? [D7, WinXP]

SlayerX ©   (2006-09-15 08:38:00) 

Я сделал видео плейер и не могу развернуть окно где пройгывается видео на весь экран???   ПОМОГИТЕ ! ! !

---

Virgo_Style   (2006-09-15 12:35:00) [1]

не ори

---

SlayerX   (2006-09-15 08:49:00) [2]

<font color= "Blue"> Я тут попробова например:

{Code for Form 1}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.Show;
 Form2.WindowState := wsMaximized;
 Form2.MediaPlayer1.Notify := false;
 Form2.MediaPlayer1.Display := Form2.Panel1;
 Form2.MediaPlayer1.FileName := 'C:\TheWall\DELCAR2.AVI';
 Form2.MediaPlayer1.Open;
 Form2.MediaPlayer1.DisplayRect := Form2.ClientRect;
 Form2.MediaPlayer1.Play;
end;

{Code for Form 2}

procedure TForm2.MediaPlayer1Notify(Sender: TObject);
begin
 if MediaPlayer1.NotifyValue = nvSuccessful then
   Form2.Close;
end;

А ещё есть примеры.</font>

---

Наверх