溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這篇文章主要介紹了如何在全屏幕顯示一個AVI文件，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。
（1）創建一個工程文件
（2）選擇File|New Form創建一個窗體，設置其Name := Form2
（3）設置Form2.BorderStyle := bsNone
（4）在Form2上放置一個MedialPlayer構件
（5）在Form2上放置一個Panel構件，設置其Name := Panel1
（6）設置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;
感謝你能夠認真閱讀完這篇文章，希望小編分享的“如何在全屏幕顯示一個AVI文件”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關注億速云行業資訊頻道，更多相關知識等著你來學習!
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
