国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

如何在全屏幕顯示一個AVI文件

2019-11-18 18:57:42
字體：大 中 小
來源：轉載
供稿：網友
（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;

上一篇：將網頁內容保存為字符串以及根據字符串顯示成網頁

下一篇：COM/DCOM中如何傳遞數組

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 怀化市| 固安县| 长治市| 乐清市| 龙里县| 屏边| 利津县| 通化县| 邹平县| 柳州市| 东宁县| 林州市| 东莞市| 布拖县| 灵石县| 鸡西市| 陈巴尔虎旗| 台州市| 景德镇市| 松原市| 银川市| 远安县| 宝坻区| 武定县| 泰州市| 许昌县| 正安县| 日喀则市| 芦溪县| 同德县| 吉林省| 峨眉山市| 罗城| 贵定县| 十堰市| 安徽省| 丹巴县| 滦南县| 教育| 海门市| 石柱|