Как развернуть окно на весь экран?

← →
SlayerX © (2006-09-15 08:38) [0]

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

← →
SlayerX © (2006-09-15 08:49) [1]

<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>

не ори

Как развернуть окно на весь экран? Найти похожие ветки