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
posted on 2010-09-15 09:20
無聲 閱讀(930)
評論(0) 編輯 收藏 所屬分類:
職場生活