敬业的IT人 >> 编程开发 >> Delphi >> 动态隐藏/显示窗口的标题栏(同时保持窗口的Sizeable性能)

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

敬业的IT人 互联网 佚名 2008-1-4 16:32:57
今天考虑作界面的时候,想去掉窗体的标题栏,但设置 Form.BorderStyle := bsNone; 会导致窗体不可再 Sizeable (通过鼠标操作改变窗体大小),仔细翻看了相关Help也没找到解决办法。
  在DFW里终于搜索到答案:

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

粤ICP备06119539号
Copyright CiscoSky.Org,Some Rights Reserved.
Email:me1228#tom.com