Mega Code Archive

 

Categories / Delphi / Multimedia

 

Avi dosyalarini fullscreen oynatma[ aviden baska da olabilir]

Gerekenler: 1 Mediaplayer 2 Button 3 Panel "aligin cilent olacak" procedure TForm1.Button1Click(Sender: TObject); begin MediaPlayer1.FileName:='c:\hands.avi'; MediaPlayer1.Open; MediaPlayer1.Display := panel1; MediaPlayer1.DisplayRect := Rect(0 , 0, Form1.Clientwidth, Form1.ClientHeight); //avi dosyasini panel e yayyarak genisletme komutu// MediaPlayer1.Play; end; procedure TForm1.FormActivate(Sender: TObject); begin button1.click ; end; end.