Flash ActiveX控件随Form最大、最小化(100分)

  • 主题发起人 主题发起人 xq0705
  • 开始时间 开始时间
X

xq0705

Unregistered / Unconfirmed
GUEST, unregistred user!
我在一个Form中放了一个Flash ActiveX控件,但却不能随Form最大、最小化;Why?
 
在form的onResize事件中设置该控件的top,left和height,width,使之与form的变化同步
 
tycoonsl:
谢谢您,我用Delphi6在Flash ActiveX控件的Align属性设置为alClient,大小是同步了,
但播放显示区域却不会变,为什么?
 
需要刷新
 
可以指定显示区域的DisplayRect为Rect(0,0,Form.Width,Form.Height) 就OK!
 
form1.windowstate:=wsmaximized;
flash1.Align :=alclient;
trackbar1.SetFocus
flash1.SetFocus
form1.windowstate:=wsminimized;

 
MoveWindow(shockwave1.handle,0,0,1024,768)
在onsize时候。
 
在form的onResize事件中
先使其他控件获得焦点
再使flash控件获得焦点
如:
procedure TForm2.FormResize(Sender: TObject);
begin
//------------------------------------
///--------切换控件焦点,达到缩放的效果
Panel1.SetFocus;
shockwaveflash1.SetFocus;
/////-----------------------------------;
end;
 
后退
顶部