Советы по Delphi




Как проиграть AVI на полный экран?


Своим опытом делится Олег Кулабухов:

Просто проиграть его на другой форме, развернутой на весь экран

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

[001852]




Содержание  Назад  Вперед