如何在全屏幕显示一个AVI文件-创新互联
这篇文章主要介绍了如何在全屏幕显示一个AVI文件,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。
10年积累的成都网站设计、网站制作经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站制作后付款的网站建设流程,更有离石免费网站建设让你可以放心的选择与我们合作。(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文件”这篇文章对大家有帮助,同时也希望大家多多支持创新互联网站建设公司,,关注创新互联行业资讯频道,更多相关知识等着你来学习!
分享名称:如何在全屏幕显示一个AVI文件-创新互联
转载注明:http://cdiso.cn/article/esdeo.html