TShockwaveflash在窗体改变时大小改变的问题？解决后马上结贴

Question

我在窗体改变事件中加了控件随窗体改变的语句，可是Flash控件不随窗体改变，求解决方法，明天就要给同学了

Answer 1

呵，我前几天也遇到了这样的问题，解决的方法有点笨，不过挺实用的在窗体的改变事件中写入
with shockwaveflash1 do   
   begin
   Width:=shape1.Width-6;
   Height:=shape1.Height-6;
   Top:=shape1.Top+3;
   Left:=shape1.Left+3;
   Visible:=false;
   Enabled:=false;
   Refresh;
   Repaint;
   Enabled:=true;
   Visible:=true;
end;
   Sendmessage(shockwaveflash1.Handle,WM_LBUTTONDOWN,0,0);//这句是关键，我发现在改变大小的时候，总是要左键点一下flash控件才能改变，就send了左键消息给它另外看了他人的一个方法，我懒，没试过，不知道行不行Form.ActiveControl := nil;
Form.ActiveControl := Shockwaveflash;