大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这篇文章主要介绍了如何在全屏幕显示一个AVI文件,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。
创新互联:公司2013年成立为各行业开拓出企业自己的“网站建设”服务,为千余家公司企业提供了专业的成都网站设计、做网站、网页设计和网站推广服务, 按需开发网站由设计师亲自精心设计,设计的效果完全按照客户的要求,并适当的提出合理的建议,拥有的视觉效果,策划师分析客户的同行竞争对手,根据客户的实际情况给出合理的网站构架,制作客户同行业具有领先地位的。
(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文件”这篇文章对大家有帮助,同时也希望大家多多支持创新互联,关注创新互联行业资讯频道,更多相关知识等着你来学习!