Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   

Как проиграть 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;

           


изготовление флагов, широкоформатная печать на ткани . Закупка оборудования дорого: продажа строительной техники. Строительная техника. . Интернет магазин копии швейцарских часов Breitling . Курс Инвестирование для всех: установка стеклопакетов петербург. Интернет-магазин. Электроника. . подскажите хорошего гинеколога .


Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011