请问如何实现：当Form1大小改变时，想让Form2也变自动缩放到适合form1大小，请高手指教，谢谢！

Question

form1的formstyle设为fsNormal，而form2的formstyle设为fsStayOnTop,form2的position设为poMainFormCenter，form2是在主窗体form1中的button1单击而弹出来的窗口; 请问我怎样实现：当Form1大小改变时，想让Form2也变自动缩放到适合form1大小，请高手指教，谢谢！
附加说明：Form1大小的改变是通过以下方式
procedure TForm1.FormResize(Sender: TObject); 
begin 
ScaleBy(Width, FWidth); 
FWidth := Width; 
end; 

Answer 1

procedure TForm1.FormResize(Sender: TObject); 
begin 
ScaleBy(Width, FWidth); 
FWidth := Width; 
//按比例计算出Form2的Width和Height然后给它赋值
end;

Answer 2

首先你的form1或者form2可以访问到对方
在form1的onresize事件中，对form2重新定位

Answer 3

但TForm1不是按比例变小或变大的，而是随意改变的，TForm2原本就比TForm1小，相当于是TForm1中的一个对话筐，

Answer 4

直接用Mdi窗口不就好了？……