从品牌网站建设到网络营销策划,从策略到执行的一站式服务
这篇文章主要介绍了如何在全屏幕显示一个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文件”这篇文章对大家有帮助,同时也希望大家多多支持创新互联网站建设公司,,关注创新互联行业资讯频道,更多相关知识等着你来学习!
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图