随笔-200  评论-148  文章-15  trackbacks-0
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 无声 阅读(900) 评论(0)  编辑  收藏 所属分类: 职场生活

只有注册用户登录后才能发表评论。


网站导航: