控制控件随窗体变化

在窗体的show事件和Resize事件中加入

procedure TForm1.FormResize(Sender: TObject);
begin
if   FormOldWid>0 then
 begin
   ScaleBy(self.Width,FormOldWid);
   FormOldWid:=self.Width;
 end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
showmessage(inttostr(self.Width));
FormOldWid:=self.Width;
end;