Delphi开发时经常会用到窗体全屏，现找到了解决办法记录一下

Delphi开发时经常会用到窗体全屏，现找到了解决办法记录一下

procedure TFrm_Main.FormCreate(Sender: TObject);
begin
  Frm_Main.Left := 0;
  Frm_Main.Top := 0;
  Frm_Main.windowstate := wsmaximized;
  SetWindowLong(Frm_Main.Handle, GWL_STYLE,
    GetWindowLong(Frm_Main.Handle, GWL_STYLE) and not WS_CAPTION);
              //FForm.windowstate:=wsmaximized;
  Frm_Main.clientHeight := screen.Height;
  Frm_Main.Refresh;
end;

参考 http://www.cnblogs.com/uws2056/archive/2010/06/23/1763988.html