Executar um AVI no Form

Veja nesta dica como executar um AVI no Form

Executar um AVI no Form

procedure TForm1.BitBtn1Click(Sender: TObject);
begin 
   with MediaPlayer1 do begin
      FileName := 'c:\windows\help\scroll.avi';
      Open;
      Display := Form2;
      Form2.Show;
      Play;
   end;
end;
 
Ebook exclusivo
Dê um upgrade no início da sua jornada. Crie sua conta grátis e baixe o e-book

Artigos relacionados