Delphi 覆寫 CreateParams 動態調整視窗樣式 (如捲軸顯示/隱藏)

用途

CreateParams 是 TWinControl 虛擬方法，在視窗建立前調整 TCreateParams 結構 (對應 CreateWindowEx 參數)，可動態增減 WS_VSCROLL, WS_HSCROLL, WS_BORDER 等樣式旗標。

範例：依條件顯示/隱藏垂直捲軸

procedure TMyControl.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if IWantAScrollBar then
    Params.Style := Params.Style or WS_VSCROLL
  else
    Params.Style := Params.Style and not WS_VSCROLL;
end;

常用樣式旗標

注意

• 必須先呼叫 inherited 取得基礎樣式，再修改。
• 視窗建立後若需改變樣式，需用 SetWindowLong(Handle, GWL_STYLE, NewStyle) 並配合 SetWindowPos(..., SWP_FRAMECHANGED) 重繪。
• Params.ExStyle 對應擴充樣式 (WS_EX_*)。

1. 上一篇文章： Delphi DBGrid 嵌入下拉方塊 (DBComboBox) 等可視元件
2. 下一篇文章： Delphi 限制表單最大化尺寸與位置 (WM_GETMINMAXINFO)

Delphi

Delphi 組件庫術語演進：從 VCL 到 CLX 的跨平台之路

術語釐清 術語全稱定位 CLXComponent

TMainMenu 元件詳解 [三]：手動建立選單 (2) 建立子選單項

透過 TMenuItem.Add 方法將子項加入父項，形成多

Delphi 多線程程式設計 (19)：無同步物件手動協調線程依序執行與 Mutex 同步對比

探討如何讓多個線程**依順序**執行。方案一：無任何同步物件

GDI+ 畫筆對齊教學：SetAlignment 控制線條繪製位置

繪製矩形、橢圓等封閉圖形時，畫筆寬度會導致線條向內、向外或置