動態隱藏/顯示窗口的標題欄(同時保持窗口的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;