设置Delphi窗体大小的方法

procedure TMainForm.FormResize(Sender: TObject);
begin
  Left := 0;
  Top := 0;
  Height := Screen.Height - 30;
  Width := Screen.Width;
end;