Delphi 動態隱藏視窗的標題列(同時保留 Sizeable 特性)
9 月.06, 2005 in Delphi
當希望程式執行想要去掉上方的標題列時, 可以設置 Form.BorderStyle := bsNone;
不過同時會造成視窗無法 Sizeable (通過滑鼠調整視窗大小).
某位前人仔細翻看了相關 Help 也沒找到解決辦法, 最後在 DFW 裡終於找到答案:
1 2 3 4 5 6 7 8 9 10 | procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Handle, // 視窗 Handle GWL_STYLE, // 表示是要設定新的視窗(普通)樣式 GetWindowLong(Handle, GWL_STYLE) // 取得指定視窗訊息 and (not WS_CAPTION) // 去掉樣式 (s) 中的 "標題" 樣式 ); Height := ClientHeight; Width := ClientWidth; end; |
Leave a Reply