急救:谁解决了flash控件全屏(或动态改变大小)时,控件不变的问题?

解决方案 »

  1.   

    fscommand的allowscale参数可以设置影片不随窗口的变化而变化,是不是你想要的
      

  2.   

    你将控件的焦点变换一下就可以了!procedure TForm1.FormResize(Sender: TObject);
    begin
      Form1.ActiveControl := nil; //焦点设为空         
      Form1.ActiveControl := ShockwaveFlash; //焦点指向flash控件
    end;
      

  3.   

    也可以这样,一定行:
    假设Flash组件的名称为FlashCtrl
    1、FlashCtrl.Visible := False ;
    2、设置FlashCtrl大小,若指定FlashCtrl.Align 为不等于alNone值时可免写这部分代码
    3、FlashCtrl.Visible := True ;
    4、SendMessage(FlashCtrl.Handle,WM_LButtonDown,0,0) ;
    完成以上代码即可