动态隐藏显示窗口的标题栏(同时保持窗口的sizeable性能

今天考虑作界面的时候,想去掉窗体的标题栏,但设置 Form.BorderStyle := bsNone; 会导致窗体不可再 Sizeable (通过鼠标操作改变窗体大小),仔细翻看了相关Help也没找到解决办法。

  在DFW里终于搜索到答案:

  // 对指定窗体设置属性

  SetWindowLong(Handle,                   // 当前窗体句柄

                GWL_STYLE,                // 表示当前是要设置新的窗体(普通)样式

                // 得到指定窗体信息

                GetWindowLong(Handle, GWL_STYLE)

                  and (not WS_CAPTION));  // 去掉样式(s)中的“标题”样式

  Height := ClientHeight;

  Width := ClientWidth;

去掉窗体上的最大小最小化按钮

‍//去掉按钮

Self.BorderIcons := Self.BorderIcons - [biMinimize, biMaximize];

要加在窗体的创建事件里面

Self.BorderIcons := Self.BorderIcons - [bisystemMenu,biMinimize, biMaximize,biHelp];

原文地址:https://www.cnblogs.com/blogpro/p/11446849.html