动态隐藏/显示窗口的标题栏

作者 : islet8 标题 : 动态隐藏/显示窗口的标题栏（同时保持窗口的Sizeable性能） 关键字: 窗口,标题栏,隐藏 分类 : Delphi  密级 : 公开  

(评分: , 回复: 0, 阅读: 277)
今天考虑作界面的时候，想去掉窗体的标题栏，但设置 Form.BorderStyle := bsNone; 会导致窗体不可再 Sizeable （通过鼠标操作改变窗体大小），仔细翻看了相关Help也没找到解决办法。
在DFW里终于搜索到答案：

 // 对指定窗体设置属性
 SetWindowLong(Handle,          // 当前窗体句柄
        GWL_STYLE,         // 表示当前是要设置新的窗体（普通）样式
        // 得到指定窗体信息
        GetWindowLong(Handle, GWL_STYLE)
         and (not WS_CAPTION));  // 去掉样式(s)中的“标题”样式
 Height := ClientHeight;
 Width := ClientWidth;


2004-8-9 20:07:41