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

页面导航:首页 > 软件编程 > Delphi > 如何在全屏幕显示一个AVI文件

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

来源: 作者: 时间:2016-02-05 11:47 【

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

 

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;

 

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <