如何在全屏幕显示一个AVI文件
作者：佚名 来源：不详 发布时间：2006-12-29 13:13:33
减小字体
增大字体
（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:Tempcool.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;
【itbulo.com/post.php?action=newthread&fid=51&extra=page%3D1" title="如有错误，麻烦请及时告诉我们,谢谢。" target="_blank">我要纠错】【itbulo.com/" target="_blank">进入论坛交流】【关闭此页】【iTbulo.net/" class="lblue" target="_blank">进入博客】
在百度中搜索更多如何在全屏幕显示一个AVI文件相关网页
转贴于：中国下载站
上一篇文章：Delphi制作带图标的弹出式选单
下一篇文章：在应用程序中开关WINDOWS系统
阅读统计:[]
【中国下载站】【设为主页】【收藏本页】【打印本文】【回到顶部】【关闭此页】
相关文章
文章评论（评论内容只代表网友观点，与本站立场无关！）
您现在的位置：