BCB 攔截 Windows 訊息實戰：修改系統選單、擴展 TrackBar 事件

痛點：VCL 封裝的缺口

• 無法修改表單系統選單（新增/移除項目、圖示、擁有者繪製）。
• TTrackBar 缺少 OnStartTrack/OnEndTrack 事件，只能得知最終位置。
• 其他：WM_NCHITTEST 拖動無標題視窗、WM_POWERBROADCAST 電源管理等。

解決之道：**繞過 VCL，直接攔截 Windows 訊息**。

標準攔截步驟（表單級）

1. 標頭檔宣告

class TForm1 : public TForm
{
__published: ...
private:
    // 訊息處理函數宣告
    void __fastcall WMSysCommand(TMessage &Message);
    void __fastcall WMHScroll(TMessage &Message);
protected:
    // 訊息映射表
    BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage, WMSysCommand)
        MESSAGE_HANDLER(WM_HSCROLL,    TMessage, WMHScroll)
    END_MESSAGE_MAP(TForm)
public:
    __fastcall TForm1(TComponent* Owner);
};

2. 實作檔定義

void __fastcall TForm1::WMSysCommand(TMessage &Message)
{
    // 攔截系統選單命令
    if (Message.WParam == SC_ABOUT) { // 假設新增「關於」項目
        ShowMessage("自訂系統選單項目被點擊");
        Message.Result = 0;
        return;
    }
    // 其他交給預設處理
    DefaultHandler(Message);
}

void __fastcall TForm1::WMHScroll(TMessage &Message)
{
    TTrackBar *tb = dynamic_cast(ControlAtPos(Mouse->CursorPos, true));
    if (tb && (Message.WParam & 0xFFFF) == TB_THUMBTRACK) {
        // 滑塊拖動中
        if (!tb->Tag) { // 首次
            tb->Tag = 1;
            OnStartTrack(tb); // 自訂事件
        }
    }
    else if (tb && ((Message.WParam & 0xFFFF) == TB_ENDTRACK)) {
        tb->Tag = 0;
        OnEndTrack(tb); // 自訂事件
    }
    DefaultHandler(Message); // 保證 TrackBar 正常更新
}

進階：修改系統選單完整範例

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    HMENU hSysMenu = GetSystemMenu(Handle, FALSE);
    // 1. 新增分隔線
    AppendMenu(hSysMenu, MF_SEPARATOR, 0, NULL);
    // 2. 新增自訂項目
    AppendMenu(hSysMenu, MF_STRING, IDM_MY_ABOUT, "關於我的程式(&A)...");
    AppendMenu(hSysMenu, MF_STRING, IDM_MY_SETTINGS, "設定(&S)...");
}

// 3. 在 WMSysCommand 處理
void __fastcall TForm1::WMSysCommand(TMessage &Message)
{
    switch (Message.WParam & 0xFFF0) {
        case IDM_MY_ABOUT:
            ShowMessage("版本 1.0.0");
            break;
        case IDM_MY_SETTINGS:
            ShowSettingsDialog();
            break;
        default:
            DefaultHandler(Message);
    }
}

關鍵技術細節

常見錯誤與修正

• ❌ 忘記呼叫 DefaultHandler → 視窗無法移動、TrackBar 不更新。
  ✅ 除非明確要完全取代系統行為，否則必須呼叫。
• ❌ 在訊息處理器中做耗時操作。
  ✅ 僅做輕量判斷/標記，重度邏輯 PostMessage 給自己或丟入工作佇列。
• ❌ 使用 VCL_MESSAGE_HANDLER 卻引用 ATL。
  ✅ 專案含 ATL 時改用 MESSAGE_HANDLER 完整名稱避免宏衝突。

掌握訊息攔截，即擁有了「VCL 後門鑰匙」，能實現框架未預見的任何視窗行為定製。