社区
GAME,图形处理/多媒体
帖子详情
Tmediaplayer放.dat的时候怎么让显示区域变大一点呢?
dousijie
2003-08-23 11:11:02
总是355*288,我panel怎么弄他都不踩我。
...全文
71
3
打赏
收藏
Tmediaplayer放.dat的时候怎么让显示区域变大一点呢?
总是355*288,我panel怎么弄他都不踩我。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
0754boy
2003-09-06
打赏
举报
回复
如何在全屏幕显示一个AVI文件
(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;
z_hongbao
2003-08-26
打赏
举报
回复
gz
甜而不腻
2003-08-23
打赏
举报
回复
1、改变一下,autosize:=false;
2、看看你使用PANEL时是不是忘记将stretch的属性了,
你使用 DRAW,和Drawstretch 效果是不一样的。
Delphi 6集成开发环境
第1 章 Delphi 集成开发环境..........1 1.1 Delphi 6.0 简介............................................ 1 1.2 Delphi 可视化开发环境简介...................... 2 1.2.1 对象编辑器(Object Inspector)....3 ...
Delphi-T
MediaPlayer
和TTrackBar的使用
T
MediaPlayer
和TTrackBar的使用实例
自制MP3播
放
器 (T
MediaPlayer
/BmpShape)
大块背景色必须和背景色绝对相等才能获得正常效果}interfaceuses Forms,Windows, Messages, SysUtils, Classes, Controls, ExtCtrls,Graphics;type TBmpShape = class(TImage) private { Private declarations } ...
海康录下的MP4文件播
放
的例子,DELPHI编写
海康录下的文件是mp4格式,本程序是使用DELPHI编写的简单播
放
器,可以用于二次开发的参考。
VCLSKIN 3.84(2005.12.8) 官方版本
HistoryNews in 3.84 12/5/2005*Support TPnbBitBtn.*fix flicker in Tpagecontrol.*Fix GDI leak problem.News in 3.83 12/2/2005*Fix problem...maximize.News in 3.81 11/29/2005*Support T
MediaPlayer
control.
GAME,图形处理/多媒体
1,183
社区成员
14,336
社区内容
发帖
与我相关
我的任务
GAME,图形处理/多媒体
Delphi GAME,图形处理/多媒体
复制链接
扫一扫
分享
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章