我所理解的VCL消息處理流程

一、VCL消息處理流程：
1.Application從windows消息隊列中取得屬於當前線程的所有消息。
2.Application:translatemessage.
3.Application:dispatchmessage分派消息
  3.1 dispatchmessage根據消息中的handle來找到目標元件的回調函數，並調用這個回調函數(wndproc)。
4.每個元件(TWincontrol及其子類)在其回調函數(wndproc)中處理消息。未處理的消息通過TObject的dispatch()方法進行再次分派。
  4.1Tobject.dispatch會在對象的VMT(或者說對象的內存結構)中去尋找處理了指定消息的方法，即我們在代碼裡常見到的：
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
    ...
  4.2 如果找到了，就調用它。如果沒有找到，把消息傳遞給TObject的這個方法：

procedure DefaultHandler(var Message); virtual

整個過程就是這樣。

二、另外說明一下，事件如何被觸發，以及事件的代碼是如何被調用到的：
我們常在VCL的類的代碼裡見到類似這樣一些變量：
...
  TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;
...
    FOnClose: TCloseEvent;
    FOnCloseQuery: TCloseQueryEvent;
...
    property OnClose: TCloseEvent read FOnClose write FOnClose;
...
在第3.1,4.1，4.2這三個步驟中，在代碼中會根據接收到的消息的不同會調用，會調用類似下列的代碼：
if Assigned(FOnClose) then
  FOnClose;
 這樣，我們在OnClose事件中的代碼，就會在接收到close消息的時候被調用到。