您现在的位置:首页 >> 图形媒体 >> 图形媒体 >> 内容

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

时间:2011/9/3 15:02:13 点击:

  核心提示:创建一个工程文件   (2)选择File|New Form创建一个窗体,设置其Name := Form2  (3)设置Form2.BorderStyle := bsNone  (4)在Form2上放置...

创建一个工程文件
  (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;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号