这篇文章主要介绍了如何在全屏幕显示一个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进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
