Question

delphi：窗体大小如何根据电脑屏幕自动调整窗体大小？

delphi：窗体大小如何根据电脑屏幕自动调整窗体大小？麻烦提供完整代码，谢谢

Answer 1

利用Screen对象

procedure TForm1.FormCreate(Sender: TObject);

begin

  Form1.Width := trunc(Screen.Width * 0.8);

  Form1.Height := trunc(Screen.Height * 0.8);

end;

追问

窗体上的的控件怎么不跟窗体大小而改变呢？

追答

你又没说....要 调控件.....

举例 窗口上只有一个按钮button1
button1的top、left 始终为窗体高度、宽度的10%
窗体create和resize事件都设置其 top，left ，这样窗体大小调整，
按钮 位置跟着“自动”调整
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Left := Trunc(Form1.Width*0.1);
Button1.Top := Trunc(Form1.Height*0.1);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Button1.Left := Trunc(Form1.Width*0.1);
Button1.Top := Trunc(Form1.Height*0.1);
end;

追问

报错，这个是什么问题啊？

Answer 2

如果是最大化的话，把align属性设为alClient就以了，不管屏幕多大，或多小，反正满屏嘛