大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

如何在全屏幕显示一个AVI文件

这篇文章主要介绍了如何在全屏幕显示一个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文件”这篇文章对大家有帮助,同时也希望大家多多支持创新互联,关注创新互联行业资讯频道,更多相关知识等着你来学习!


分享题目:如何在全屏幕显示一个AVI文件
转载注明:http://dzwzjz.com/article/jsjdss.html
在线咨询
服务热线
服务热线:028-86922220
TOP