動態隱藏/顯示窗口的標題欄(同時保持窗口的Sizeable性能)
2019-11-18 18:40:08
供稿:網友
今天考慮作界面的時候,想去掉窗體的標題欄,但設置 Form.BorderStyle := bsNone; 會導致窗體不可再 Sizeable (通過鼠標操作改變窗體大小),仔細翻看了相關Help也沒找到解決辦法。
在DFW里終于搜索到答案:
// 對指定窗體設置屬性
SetWindowLong(Handle, // 當前窗體句柄
GWL_STYLE, // 表示當前是要設置新的窗體(普通)樣式
// 得到指定窗體信息
GetWindowLong(Handle, GWL_STYLE)
and (not WS_CAPTION)); // 去掉樣式(s)中的“標題”樣式
Height := ClientHeight;
Width := ClientWidth;