form的问题。

Question

大虾：
我建了个form，其width和height均取400，现在可否做到当该窗体运行时，form占据整个屏幕，并且form上的控件自动跟着扩大，间距也成比例增加，怎么做？
谢谢！

Answer 1

比较麻烦。如果只是占据正个屏幕到是简单。只要在运行时设置width和height为800*600即可。

Answer 2

把FORM的windowstate设置为wsmaximized
把控件的属性如果充满可户区设置为 alclient
在form的onresize事件中进行编程
重新计算控件的位置和大小

Answer 3

const
  ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
  ScreenHeight: LongInt = 600;procedure Tmain.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;