Flash的使用？

Question

运用Flash的active控件，放置在一个panel中，当触发panelOnResize的时候，怎样使Flash的高宽变化？
对了，Flash在panel中设置了 flash.align := alClient;

Answer 1

panelOnResize的时候
去事件里写代码控制flash的高宽或者是比例

Answer 2

yinxd6112：我是在PanelOnReSize的时候修改了高和宽，但这根本不起作用。不知道需要调用那个api才行，所以特来请教！

Answer 3

如果你的Flash在panel中设置了 flash.align := alClient;那么当panel 改变的时候，flash也会跟着改变大小呀.

Answer 4

因为你： Flash在panel中设置了 flash.align := alClient; 
所以你直接改变panel的宽高即可。

Answer 5

http://www.mwymwy.cn/PlaySwf.exe
这是我做的一个透明效果。

Answer 6

我说的可能不对，不过我用Twebbrowser看了下，可以自动适应，不知道它里面是怎么做的。
但用ShcokWaveFlash确实还不行  我设置ShockWaveFlash.SetVarible('allowscale','true')后效果不佳。关注

Answer 7

我来赚分咯~~~方法一:
procedure TForm1.Panel2Resize(Sender: TObject);
begin
  ShockwaveFlash1.Hide;
  ShockwaveFlash1.Show;
  if ShockwaveFlash1.CanFocus then
    ShockwaveFlash1.SetFocus;
end;方法二:
type
  TShockwaveFlash = class(ShockwaveFlashObjects_TLB.TShockwaveFlash)
  end;procedure TForm1.Panel2Resize(Sender: TObject);
begin
  ShockwaveFlash1.CreateWnd;
end;