[轉載] DELPHI下的WINDOWS訊息傳遞機制

來源:互聯網
上載者:User

    [轉載] DELPHI下的WINDOWS訊息傳遞機制

        原文在:http://blog.csdn.net/newfang/archive/2006/06/15/800780.aspx
  BLOG開了很久,專業的東西一點沒寫,今天既然已經坐下了,就寫點東西吧,也算調整調整心緒!
  
  開發基於WINDOWS平台的應用程式時,瞭解WINDOWS訊息系統組成是非常必要的。
  
  訊息本身是作為一個記錄傳遞給應用程式的,記錄中包含訊息的類型以及其它的資訊!這個記錄類型叫做TMsg,它在WINDOWS單元中聲明,這裡就不一一列舉(偶打字很辛苦的:P)
  
  在WIN32中預定義的一些訊息常量往往是以WM開頭,以代表某一特定的訊息。DELPHI的MESSAGE單元中定義了所有WINDOWS訊息,如果有興趣可以自己開啟MESSAGE單元研究一下!
  
  WINDOWS的訊息系統由3部分組成:(1)訊息佇列,WINDOWS能夠為所有的應用程式維護一個訊息佇列,應用程式必須從訊息佇列中擷取訊息,然後指派給某個視窗。(2)訊息迴圈,通過這個迴圈機制,應用程式從訊息佇列中檢索訊息,再把它指派給適當的視窗,依次進行。(3)視窗過程,每個視窗都有一個視窗過程,以接收WINDOWS傳遞給視窗的訊息,視窗過程的任務就是要擷取訊息並響應它(視窗過程是一個回呼函數,處理完一個訊息後,通常要給WINDOWS一個傳回值)。
  
  從訊息的產生到訊息被一個視窗響應,這其中要經曆以下幾個步驟:(1)系統中發生了某個事件。(2)WINDOWS把這個事件翻譯成訊息,然後把它放在訊息佇列中。(3)應用程式從訊息佇列中接收這個訊息,並把它存放在TMsg記錄中。(4)應用程式把訊息傳遞給一個適當的視窗過程。(5)視窗過程響應這個訊息並進行處理。
  
  下面說說DELPHI的VCL訊息系統處理原理:
  
  DELPHI中的每一個VCL組件都有內在的訊息處理機制,在建立一個表單或加入一個組件時,VCL就已經註冊了一個訊息接收常式MainWndProc,這個常式是每個表單和組件固有的。MainWndProc是定義在TWinControl類中的一個靜態方法,不能被重載。它不直接處理訊息,而是交給WndProc處理並提供異常保護。如有異常發生,則調用Application.HandleException方法處理異常。具體可以自己查看TWinControl類MainWndProc的實現代碼,偶這裡就不貼了!
  
  WndProc是TControl類中的一個虛擬方法,這意味著它可以被覆蓋,提供自訂的訊息處理常式(事實上,TControl構件中就是利用它來過濾並處理所有的滑鼠訊息(從WM_MOUSEFIRST到WM_MOUSELAST)的)。WndProc調用DisPatch方法進行訊息分配,具體代碼可以查看TControl類WndProc的代碼實現。
  
  DisPatch方法是在TObject根類中定義的,傳遞給它的參數必須是一個記錄類型,這個記錄中的第一個點必須是個Cardinal類型的欄位。DisPatch方法根據訊息編號碼調用組件的最後繼承類中處理此訊息的控制代碼方法。如果此組件和它的祖先類中都沒有對應此訊息的處理控制代碼,DisPatch方法便會調用DefaultHandler方法,DisPatch方法是定義於TObject類中的虛擬方法,它只是簡單的返回而不對訊息做任何處理。我們可以對此虛擬方法的重載,在子類中實現對訊息的預設處理(OH……MY GOD,怎麼掉線了~~)。
  
  這就是DELPHI對WINDOWS訊息的處理流程!
  
  發送訊息:
  
  DELPHI主要通過三種方式發送訊息。Perform(),使用於所有的TControl派生對象。SendMessage()和PostMessage()。這些想必都比較熟悉,不再多說了!如果需要跨進程發送訊息,就要用到RegisterWindowMessage(),它能夠確保每個應用程式使用一致的訊息序號。具體使用方法可以參考說明,很簡單的!TWinControl派生的對象可以調用Broadcast()向它的子組件廣播一個訊息。當需要向一組組件發送相同的訊息時,便可以使用這種技術!如果要用SendMessage()或PostMessage()實現廣播訊息,只需要把第一個參數——目標物件控點——設定為HWND_BROADCAST就可以,它代表向所有應用的主視窗發送訊息!
  
  訊息過濾:DELPHI訊息過濾一般有3種方法,重載構件繼承的虛方法WndProc;針對某訊息編寫訊息處理控制代碼;重載構件繼承的虛方法DefaultHandler。其中第二中方法比較常用!

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.