Multimidia - avi ou mpg em fullscreen

Top  Previous  Next

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;