盒子论坛 v2.1

各位大大：
我在form中使用了shockwaveflash控件来播放flash,我已经把那个放置大小的属性设置成clinet了，但是没有用。在 resize 事件里面把width height属性都按照form的付值也没有用，不知道什么缘故，谁知道啊？
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/10 15:24:33

1楼：

这个控件好象问题很严重呀，DELPHI把他伪编译后可能破坏了他的外观
在设计时都无法控制大小！！真烂！
----------------------------------------------

作者：

lovedelphi1 (梦之铃)	★☆☆☆☆	-
	盒子活跃会员

2004/2/10 15:44:15

2楼：

//看看我的代码.
procedure TForm1.FormResize(Sender: TObject);
begin
  if FlashPlay.Playing = True then
  begin
    pelToolBar.SetFocus; //这里
    FlashPlay.SetFocus;  //这里
  end;
  if (Self.Width <= 500) or (Self.Height <= 400) then
  begin
    Self.Width := 500;
    Self.Height := 400;
  end;
  //panText.Width := panMo.Width div 2 ;
  //ToolPlay.Width := panMo.Width div 2;
end;
----------------------------------------------
-

信息

登陆以后才能回复