急救:谁解决了flash控件全屏(或动态改变大小)时,控件不变的问题? 急救:谁解决了flash控件全屏(或动态改变大小)时,控件不变的问题? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 fscommand的allowscale参数可以设置影片不随窗口的变化而变化,是不是你想要的 你将控件的焦点变换一下就可以了!procedure TForm1.FormResize(Sender: TObject);begin Form1.ActiveControl := nil; //焦点设为空 Form1.ActiveControl := ShockwaveFlash; //焦点指向flash控件end; 也可以这样,一定行:假设Flash组件的名称为FlashCtrl1、FlashCtrl.Visible := False ;2、设置FlashCtrl大小,若指定FlashCtrl.Align 为不等于alNone值时可免写这部分代码3、FlashCtrl.Visible := True ;4、SendMessage(FlashCtrl.Handle,WM_LButtonDown,0,0) ;完成以上代码即可 请问以前的BOF or EOF老问题在Delphi7中是否还要打补丁? ADOQuery 有興趣進來看看 转让各种MIS系统和办公自动化源码 如何按下按钮可以弹出系统的“日期和时间”设置窗口 数据库--线程问题? 如何设置DBE中Access数据库的别名。 这样的全局变量数组应当怎样设置? 访问access数据库时的一个奇怪的问题 注册表给一般用户禁用了,怎么重新开启?? 为什么资源找不到呢? 我用RICHEDIT编辑的文件,存成TXT格式,我用记事本打开以后发现是乱码,要如何解决? 又有麻烦了!大家都来帮个忙。
begin
Form1.ActiveControl := nil; //焦点设为空
Form1.ActiveControl := ShockwaveFlash; //焦点指向flash控件
end;
假设Flash组件的名称为FlashCtrl
1、FlashCtrl.Visible := False ;
2、设置FlashCtrl大小,若指定FlashCtrl.Align 为不等于alNone值时可免写这部分代码
3、FlashCtrl.Visible := True ;
4、SendMessage(FlashCtrl.Handle,WM_LButtonDown,0,0) ;
完成以上代码即可