Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:多媒体技术    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  如何在全屏幕显示一个AVI文件  
 

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

关键字/核心提示:

(1)创建一个工程文件  
(2)选择File|NewForm创建一个窗体,设置其Name:=Form2  
(3)设置Form2.BorderStyle:=bsNone  
(4)在Form2上放置一个MedialPlayer构件  
(5)在Form2上放置一个Panel构件,设置其Name:=Pane...

(1)创建一个工程文件
  (2)选择File|NewForm创建一个窗体,设置其Name:=Form2
  (3)设置Form2.BorderStyle:=bsNone
  (4)在Form2上放置一个MedialPlayer构件
  (5)在Form2上放置一个Panel构件,设置其Name:=Panel1
  (6)设置Panel1.Align:=alClient
  (7)在Form1的Button1中增添以下的代码:
  procedureTForm1.Button1Click(Sender:TObject);
  begin
  withForm2do
  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事件中添加以下的代码
  procedureTForm2.MediaPlayer1Notify(Sender:TObject);
  begin
  ifMediaPlayer1.NotifyValue=nvSuccessful
  thenForm2.Close;end;

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站