重载 CreateParams 方法[2]: 重载 TForm.CreateParams 方法的几个例子
重载 CreateParams 方法[2]: 重载 TForm.CreateParams 方法的几个例子
涂孟超 发表于3年前
重载 CreateParams 方法[2]: 重载 TForm.CreateParams 方法的几个例子
  • 发表于 3年前
  • 阅读 9
  • 收藏 0
  • 点赞 0
  • 评论 0

这里有所有相关参数的解释: http://www.cnblogs.com/del/archive/2008/04/15/1154359.html

//最大化窗口
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or WS_MAXIMIZE; {WS_MINIMIZE 是最小化}
end;


//取消系统菜单(如果没法关闭就用 Alt+F4 吧)
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and not WS_SYSMENU;
end;


//取消能够调整大小的边框
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and not WS_THICKFRAME;
end;


//在所有非顶层窗口的最上面
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
end;


//工具窗口
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW;
end;


//带阴影边界, 有这 MDI 窗口的视觉
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_CLIENTEDGE;
end;


//带帮助按钮
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and not (WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
  Params.ExStyle := Params.ExStyle or WS_EX_CONTEXTHELP;
end;

//隐藏标题栏
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := WS_DLGFRAME or WS_POPUP;
end;

 
 
 
 
 

 

 

  
共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: