如何让我的窗体大小适应分辨率的变化而变化？

Question

如何让我的窗体大小随分辨率的变化而成比例变化，窗体上的组件的大小也要成比例变化。
谢谢

Answer 1

用Screen.Width和Screen.Height来获取屏幕宽度和高度
假设你是在1024×768下编程，主窗体可以这样：procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Height:=500;
  Form1.Width:=500;
  case (Screen.Width) of
      800: begin
             Form1.Height:=Form1.Height*800 div 1024;
             Form1.Width:=Form1.Width*800 div 1024;
           end;
      640: begin
             Form1.Height:=Form1.Height*640 div 1024;
             Form1.Width:=Form1.Height*640 div 1024;
           end;
  end;
end;其他组件可以根据需要来写

Answer 2

假如你在800*600的分辨率下的form,第一步：
inplementation
const
  ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
  ScreenHeight: LongInt = 600;{$R *.DFM}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;下一步，要每個子控制的字体改變到合适的大小：
type
  TFooClass = class(TControl); { needed to get at protected }
                               { font property }var
  i: integer;
begin
  for i := ControlCount - 1 downto 0 do
    TFooClass(Controls[i]).Font.Size :=
        (NewFormWidth div OldFormWidth) *
        TFooClass(Controls[i]).Font.Size;
end;

Answer 3

请问:我的frame窗体如何更改分辨率?