如何在全屏幕顯示一個AVI文件 (2001年4月5日) 

網(wǎng)友更新  分類:數(shù)據(jù)庫   作者: winfit(推薦)  推薦:winfit   閱讀次數(shù):184  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
（1）創(chuàng)建一個工程文件 
（2）選擇File|New Form創(chuàng)建一個窗體，設(shè)置其Name := Form2
（3）設(shè)置Form2.BorderStyle := bsNone
（4）在Form2上放置一個MedialPlayer構(gòu)件 
（5）在Form2上放置一個Panel構(gòu)件，設(shè)置其Name := Panel1 
（6）設(shè)置Panel1.Align := alClient
（7）在Form1的Button1中增添以下的代碼：
procedure TForm1.Button1Click(Sender: TObject);
begin
with Form2 do 
begin 
Show; WindowState := wsMaximized;
MediaPlayer1.Notify := false;
MediaPlayer1.Display := Panel1;
MediaPlayer1.FileName := 'C:\Temp\cool.avi'; 
MediaPlayer1.Open;
MediaPlayer1.DisplayRect := Form2.ClientRect;
MediaPlayer1.Play;
end;
end; 

（8）在Form2的MediaPlayer1的OnNotify事件中添加以下的代碼 
procedure TForm2.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.NotifyValue = nvSuccessful
then Form2.Close; end;