求自适应表单控件？

Question

能随分辨率的大小自动调整表单（包含表单上控件）大小．
谢谢！！！

Answer 1

一般设为固定的分辨率好一点！！！
比如
  scaleby(screen.Width,800);

Answer 2

const
ScreenWidth: Integer =800;
ScreenHeight: Integer =600;procedure TForm1.FormCreate(Sender: TObject);
begin
  Scaled := True;
  if (Screen.Width <> ScreenWidth) then
  begin
    height := Longint(height) * longint(Screen.Height) div ScreenHeight;
    width :=  Longint(width) * longint(Screen.width) div Screenwidth; 
    ScaleBy(Screen.width, ScreenWidth);
  end;
end;

Answer 3

以前有过这种帖子一般来说可以多放置几个Panal来调整
具体说来可以调整各个控件的Anchors和Align属性来调节