深入 VCL 訊息機制 (一)：BEGIN_MESSAGE_MAP 宏展開原理與 Dispatch 虛擬方法

宏定義源碼解析 (SysMac.h)

#define BEGIN_MESSAGE_MAP \
    virtual void __fastcall Dispatch(void *Message) \
    { \
        switch (((PMessage)Message)->Msg) \
        {

#define VCL_MESSAGE_HANDLER(msg, type, meth) \
    case msg: \
        meth(*((type *)Message)); \
        break;

#if !defined(USING_ATL) && !defined(USING_ATLVCL) && !defined(INC_ATL_HEADERS)
#define MESSAGE_HANDLER VCL_MESSAGE_HANDLER
#endif

#define END_MESSAGE_MAP(base) \
    default: \
        base::Dispatch(Message); \
        break; \
    } \
    }

實際展開範例

原始碼：

BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_PAINT, TMessage, OnPaint)
END_MESSAGE_MAP(TForm1)

預處理後展開為：

virtual void __fastcall Dispatch(void *Message)
{
    switch (((PMessage)Message)->Msg)
    {
    case WM_PAINT:
        OnPaint(*((TMessage *)Message));
        break;
    default:
        TForm1::Dispatch(Message); // 呼叫父類 Dispatch
        break;
    }
}

核心機制深度解析

1. Dispatch 虛擬方法鏈

• 定義於 TObject (VCL 根基類)。
• 所有 VCL 物件繼承此虛方法，可多態分派訊息。
• 若當前類別映射表未命中，default: 分支呼叫 BaseClass::Dispatch，形成繼承鏈查找。
• 最終到達 TObject::Dispatch → DefaultHandler (空實作) → DefWindowProc (透過 MainWndProc)。

2. 宏衝突與解決

• ATL 也定義 MESSAGE_HANDLER 宏，與 VCL 衝突。
• BCB5+ 引入 VCL_MESSAGE_HANDLER 專用名稱。
• 條件編譯：未使用 ATL 時 MESSAGE_HANDLER 映射為 VCL_MESSAGE_HANDLER。
• 建議：永遠使用 VCL_MESSAGE_HANDLER 避免衝突。

3. 參數類型安全

• type 參數指定訊息結構 (TMessage, TWMMouse, TWMKey 等)。
• 宏內 ((type *)Message) 強制轉型，編譯期無法檢查，開發者需確保類型匹配。
• 錯誤類型會導致參數解析錯誤、存取違規。

與其他機制對比

實戰最佳實踐

• ✅ 映射表放在 protected 區，處理函數放在 private。
• ✅ 父類別名稱在 END_MESSAGE_MAP(TForm) 中正確指定。
• ✅ 處理函數簽名：void __fastcall Handler(TMessage &Msg) 或專用結構引用。
• ✅ 修改 Msg.Result 設置返回值，影響後續處理 (如 WM_NCHITTEST)。
• ✅ 避免在映射表處理函數中執行耗時操作。

調試技巧

• 在 Dispatch 設置斷點，觀察 Message->Msg 確認訊息到達。
• 使用 OutputDebugString(Format("Dispatch: %x", [Msg.Msg])) 追蹤流向。
• Spy++ 對比訊息是否送達目標視窗。

理解宏展開原理，就能從「會用」進階到「懂原理」，在疑難雜症時能精準定位訊息分派鏈路。