DelphiWindowd消息

1、Windowd消息1 什么是消息？ 消息是Windows對應(yīng)用程序發(fā)送的有關(guān)“發(fā)生了某種事件”的通知，比如點擊鼠標，拖動窗口 Windows以Record的形式發(fā)送消息給應(yīng)用程序。記錄中包括諸如事件的類型以及對這個消息附加的特定信息。例如，對于單擊鼠標所產(chǎn)生的消息來說，這個記錄中包含了單擊鼠標時的坐標。這個記錄類型叫做T M s g， TMsg在Wi n d o w s單元中是這樣聲明的：t y p eTMsg = packed record hwnd: HWND; / /窗口句柄message: UINT; / /消息常量標識符wParam: WPA R A M ; / 32位消息的特定附加

2、信息 lParam: LPA R A M ; / 32位消息的特定附加信息time: DWORD; / /消息創(chuàng)建時的時間pt: TPoint; / /消息創(chuàng)建時的鼠標位置 e n d ;TMsg各成員的含義hwnd 32位的窗口句柄。窗口可以是任何類型的 屏幕對象，因為Win32能夠維護大多數(shù)可 視對象的句柄(窗口、對話框、按鈕、編輯 框等)。message 用于區(qū)別其他消息的常量值，這些常量 可以是Windows單元中預(yù)定義的常量，也 可以是自定義的常量wParam 通常是一個與消息有關(guān)的常量值，也可 能是窗口或控件的句柄。lParam 通常是一個指向內(nèi)存中數(shù)據(jù)的指針。 由于wParam

3、、 lParam和Pointer都是3 2位的因此，它們之間可以相互轉(zhuǎn)換。消息的類型Win32API為每個Windows消息定義了一個常量，這些常量用于TMsg記錄中的message字段。在Delphi的Message單元中為我們預(yù)定義好了所有的這些常量，其中大部分消息常量可以到在線幫助中找到解釋。這些常量都已“WM”開頭，指的是Windows Message。下表給出了一些常用的Windows消息。Windows消息系統(tǒng)的工作方式Delphi的消息系統(tǒng)VCL的Form中內(nèi)建了消息循環(huán)，因此不用考慮如何獲得消息并分發(fā)消息到指定窗口。Delphi把Windows的TMsg記錄中的信息映射到一個通

4、用的Tmessage中，該記錄比TMsg的信息少，由于Delphi已經(jīng)處理了其他的TMsg字段Tmessage中Result字段表示消息給Windows的返回值消息的處理某個過程要成為消息處理過程需要滿足三個條件n該過程必須是某個對象的方法n該過程必須有一個引用(var)的Tmessage或其他特定消息記錄類型參數(shù)n該過程必須使用message指示符，指示符后面是希望處理的消息常量下面是一個處理WM_PAINT消息的例子： WM_PAINT例子n消息處理：并非無約定 Windows消息處理不是無約定的。當(dāng)我們決定自己處理某個消息時，Windows希望我們在處理消息后在執(zhí)行一些Windows期望

5、的動作，這就是上例中我們?yōu)槭裁凑{(diào)用inherited的原因n為Result消息值賦值 當(dāng)消息需要返回值時，通過Result返回。例如WM_CTLCOLOR需要返回一個畫刷句柄nOnMessage事件 可以通過使用Tapplication的OnMessage事件來處理消息。通過指派一個過程給OnMessage，當(dāng)應(yīng)用程序從消息隊列中取出一個消息，并準備處理該消息時，就調(diào)用這個過程，OnMessage的唯一限制是只能從消息隊列中取出的消息，而不能處理應(yīng)用程序中直接發(fā)給Windows窗體過程的消息 發(fā)送自己的消息Delphi主要提供了下面幾種途徑在應(yīng)用程序間發(fā)送消息nPerform（）方法 VCL為

6、所有的Tcontrol派生類提供了Perform（）方法，給任何已知對象實例的窗體或控件對象發(fā)送消息。Perform（）是同步調(diào)用。nSendMessage（）方法 同步調(diào)用，消息直接發(fā)往目的窗口，消息處理完畢菜返回nPostMessage（）方法 異步調(diào)用，消息發(fā)送給Windows消息隊列，然后立即返回。非標準消息n通知消息 當(dāng)窗口的子控件發(fā)生某種事件時，如果該事件需要通知父窗口，那么就發(fā)送此類消息。通知消息只發(fā)生在標準Windows控件中和Windows通用控件中。下表是標準的Windows控件的通知消息內(nèi)部VCL消息qVCL中有許多內(nèi)部消息和通知消息，對Delphi組件開發(fā)人員比較有用。這些消息通常以CM_開頭（代表component message)或CN_開頭（代表component notification)q例如通過處理定制消息CM_MOUSEENTER和CM_MOUSELEAVE來檢查鼠標是否進入或離開某個控件的區(qū)域。q一個例子：當(dāng)鼠標進入控件表面區(qū)域時，控件面板變成白色，當(dāng)鼠標離開時，控件面板變回clBtnFace色。 CustMessage用戶自定義消息自定義消息的基本步驟：書上p226nAcessmessagesnDelphi