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
无声 阅读(902)
评论(0) 编辑 收藏 所属分类:
职场生活