窗体大小！

Question

我把一个窗体放在另外一个窗体的panel进行显示时，如何实现我panel大小改变时窗体也自动跟着改变大小？多谢！

Answer 1

窗体是跟着变化了，但是我窗体内的控件设置的属性也是alClient或者alleft，但大小和位置没有发生变化，是什么原因？

Answer 2

窗体以及窗体内的控件的Align属性均为alClient

Answer 3

这样是可行的，请看下面的代码（分别对应于两个button的事件，button2用来测试是否可以自动改变form的大小）
procedure TForm1.Button1Click(Sender: TObject);
begin
 with TForm.Create(panel1) do
 begin
  parent:=panel1;
  align:=alclient;
  show;
 end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
 panel1.Height:=panel1.Height+50;
end;

Answer 4

仍然是原来的大小和位置>>>这没有办法改变，除非自己写代码

Answer 5

那样的话你需要在那个窗体的onresize事件里添加相应的处理代码

Answer 6

同意hkbarton(宁静至远||淡泊明志) ，你可以发送消息，让另一窗口跟随改变