程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> DELPHI中的消息處理機制

DELPHI中的消息處理機制

編輯:Delphi
Delphi是Borland公司提供的一種全新的Windows編程開發工具.由於它采用了具有彈性的和可重用的面向對象Pascal(object-orIEnted pascal)語言,並有強大的數據庫引擎(BDE), 快速的代碼編譯器, 同時又提供了眾多出色的構件.受到廣大編程人員的青 睐. 在眾 多 的 編 程 語 言( 如VB,PowerBuilder,PowerPoint 等) 中 脫 穎 而 出.
  其中一個DELPHI強於其他編程語言(如VB4.0)的地方就是在DELPHI中可自定義消息, 並可直接處理消息. 這對於那些希望編寫自己 的 構 件(Component), 或 者 希 望 截 獲. 過 濾 消 息 的 用 戶 來 說 是 必 不 可 少 的. 因 為編 寫 構 件 一 般 要 對相應的消息進行處理.下面就對Delphi 中消息處理機制進行一下介紹。
  
  一.Delphi VCL中消息的傳遞
  Delphi中每一個VCL(Visual Component Library)構件( 如Tbutton,Tedit等)都有一內在的消息處理機制,其基本點就是構件類 接收到某些消息並把它們發送給適當的處理方法,如果沒有特定的處理方法,則調用缺省的消息處理句柄。其中mainwndproc是定義在Twincontrol類中的一個靜態方法,不能被重載(Override)。它不直接處理 消 息, 而 是 交 由wndproc 方 法 處 理, 並 為wndproc方法提供一個異常處理模塊。Mainwndproc方法聲明如下:
  
  procedure MainWndProc(var Message: TMessage);
  
  Wndproc是在Tcontrol類中定義的一個虛擬方法,由它調用dispatch方法來進行消息的分配, wndproc 方 法 聲 明 如 下:
  
  procedure WndProc(var Message: TMessage); virtual;
  
  dispatch 方 法 是 在Tobject 根 類 中 定 義 的, 其 聲 明 如 下:
  
  procedure Tobject.dispatch(var Message); 傳 遞 給dispatch 的 消 息 參 數 必 須 是 一 個 記 錄 類 型, 且這 個 記 錄 中 第 一 個 入 點 必 須 是 一 個cardinal 類 型 的 域(fIEld), 它 包 含 了 要 分 配 的 消 息 的 消 息 號 碼. 例 如:
  
  type
  
  Tmessage=record
  
  Msg:cardinal;
  
  wparam:Word;
  
  lparam:longint; .
  
  result:longint;
  
  end;
  而Dispatch 方 法 會 根據 消 息 號 碼 調 用 構 件 的 最 後 代 類 中 處 理 此 消 息 的 句 柄 方法. 如 果 此 構 件 和 它 的 祖 先 類 中 都 沒 有 對 應 此 消 息 的 處 理句 柄,Dispatch 方 法 便 會 調 用Defaulthandler 方 法.Defaulthandler 方法 是 定 義 於Tobject 中 的 虛 擬 方 法, 其 聲 明 如 下:
  
  procedure Defaulthandler(var Message);virtual;
  
  Tobject 類 中 的Defaulthandler 方 法 只 是 實 現 簡 單 的 返 回 而 不 對 消 息 進 行 任 何 的 處 理. 我們 可 以 通 過 對 此 虛 擬 方 法 的 重 載, 在 子 類 中 實 現 對 消 息 的缺 省 處 理. 對 於VCL 中 的 構 件 而 言, 其Defaulthandler 方 法 會 啟 動 Windows API 函 數Defwindowproc 對 消 息 進 行 處 理.
  
  二.Delphi 中 的 消 息 處 理 句 柄
  在Delphi 中 用 戶 可 以自 定 義 消 息 及 消 息 處 理 句 柄. 消 息 處 理 句 柄 的 定 義 有 如 下幾 個 原 則:
  
  消 息 處 理 句 柄 方 法 必 須 是 一 個 過 程, 且 只 能 傳 遞 一 個Tmessage 型 變 量 參 數.
  方 法 聲 明 後 要 有 一 個message 命 令, 後 接 一 個 在0 到32767 之 間的 消 息 標 號( 整 型 常 數).
  消 息 處 理 句 柄 方 法 不 需 要 用override 命 令 來 顯 式 指 明 重 載祖 先 的 一 個 消 息 處 理 句 柄, 另 外 它 一 般 聲 明 在 構 件 的protected 或private 區.
  在 消 息 處 理 句 柄 中 一 般 先 是 用 戶 自 己 對 消 息 的 處 理, 最 後用inherited 命 令 調 用 祖 先 類 中 對 應 此 消 息 的 處 理 句 柄( 有些 情 況 下 可 能 正 相 反). 由 於 可 能 對 祖 先 類 中 對 此 消 息 的處 理 句 柄 的 名 字 和 參 數 類 型 不 清 楚, 而 調 用 命 令inherited 可以 避 免 此 麻 煩, 同 樣 如 果 祖 先 類 中 沒 有 對 應 此 消 息 的 處 理句 柄,inherited 就 會 自 動 調 用Defaulthandler 方 法.( 當 然 如 果 要屏 蔽 掉 此 消 息, 就 不 用inherited 命 令 了)。
  消 息 處 理 句 柄 方 法 聲 明 為:
  procedure Mymsgmethod(var message:Tmessage); message Msgtype;
  
  同 樣 用 戶 也 可 以定 義 自 己 的 消 息, 用 戶 自 定 義 消 息 應 從WM_USER 開 始.
  
  自 定 義 消 息 及 消息 處 理 句 柄 舉 例 如 下:
  
  const my_paint=Wm_user+1;
  
  type
  
  Tmypaint=record
  
  msgid:cardinal;
  
  msize:Word;
  
  mcolor:longint;
  
  msgresult:longint;
  
  end;
  
  type
  
  Tmycontrol=class(TCustomControl)
  
  protected
  
  procedure change(var message:Tmypaint); message my_paint;
  
  .....
  
  end;
  
  ......
  
  procedure Tmycontrol.change(var message:Tmypaint);
  
  begin
  
  size:=message.msize; { 設 置Tmybutton 尺 寸 屬 性}
  
  color:=message.mcolor; { 設 置Tmybutton 顏 色 屬 性}
  
  {do something else}
  
  inherited; { 交 由Tcustomcontrol 處 理}
  
  end;
  三. 過 濾 消 息
  過 濾 消 息 又 稱 消 息陷 阱。 在 一 定 情 況 下, 用 戶 可 能 需 要 屏 蔽 某 些 消 息. 或 者截 獲 某 些 消 息 進 行 處 理。 由 以 上 介 紹 可 以 看 出 過 濾 消 息一 般 有 三 種 途 徑:(1). 重 載 構 件 繼 承 的 虛 擬 方 法wndproc. (2). 針 對 某 消 息 編 寫 消 息 處 理 句 柄. (3). 重 載 構 件 繼 承 的 虛 擬方 法Defhandler, 在 其 中 對 消 息 進 行 處 理。 其 中 常 用 的 方 法是 方 法(2), 在 上 節 中 已 介 紹 過 了, 方 法(1) 與 方 法(3) 相 似,這 裡 只 簡 單 介 紹 一 下 方 法(1)。
  
  重 載 虛 擬 方 法wndproc 的 一 般 過 程 如 下:
  
  procedure Tmyobject.wndproc(var message:Tmessage);
  
  begin
  
  {... 判 斷 此 消 息 是 否 該 處 理..}
  
  inherited wndproc(message);
  
  { 未 處 理 的 消 息 交 由 父 輩wndproc 方 法 處 理}
  
  end;
  由 此 可 以 看 出 在wndproc 方 法 中 處 理 消 息 的 優 勢 是 可 以 過 濾 整 個 范 圍 內 的 消 息,而 不 必 為 每 個 消 息 指 定 一 個 處 理 句 柄, 事 實 上Tcontrol 構 件中 就 是 利 用 它 來 過 濾 並 處 理 所 有 的 鼠 標 消 息 的( 從WM_mousefirst 到WM_mouselast, 如 下 代 碼 示). 同 樣 利 用 它 也 可 以 阻 止 某 些 消息 被 發 送 給 處 理 句 柄。
  
  procedure TControl.WndProc(var Message: TMessage);
  
  begin
  
  if (Message.Msg>=WM_MOUSEFIRST) and
  
  (Message.Msg <= WM_MOUSELAST)
  
  then
  
  if Dragging then { 處 理 拖 曳 事 件}
  
  DragMouseMsg(TWMMouse(Message))
  
  else
  
  ... { 處 理 其 他 鼠 標 消 息}
  
  end;
  
  Dispatch(Message);
  
  { 否 則 正 常 發 送 消 息}
  
  end;
  下 例 為 一 簡 單 的 自定 義 構 件 例 子 :
  
  Tmyedit 類 是 從Tedit 類 派 生 出 的 一 個 新 類, 它 的 特 點 是 在 運 行 中 不 能 獲 得 焦點, 不 能 由 鍵 盤 輸 入( 有 點 類 似Tlabel 構 件). 我 們 可 在 其wndproc 方 法 中 過 濾 出WM_setfocus,WM_mousemove 消 息 並 進 行 處 理 來 達 到上 述 要 求, 源 程 序 如 下:
  
  unit myedit;
  
  interface
  
  uses
  
  Windows, Messages, SysUtils, Classes, Graphics,
  
  Controls, Forms, Dialogs,
  
  StdCtrls;
  
  type
  
  Tmyedit = class(TEdit)
  
  private
  
  { Private declarations }
  
  protected
  
  { Protected declarations }
  
  { other fIElds and methods}
  
  procedure wndproc(var message:Tmessage);override;
  
  public
  
  { Public declarations }
  
  published
  
  { Published declarations }
  
  end;
  
  procedure Register;
  
  implementation
  
  procedure Register;
  
  begin
  
  RegisterComponents('Samples', [Tmyedit]);
  
  end;
  
  procedure Tmyedit.wndproc(var message:tmessage);
  
  begin
  
  if message.msg=wm_mousemove then
  
  begin
  
  cursor:=crarrow;
  
  { 設 置 光 標 為crarrow, 而 不 是 缺 省 的crBeam 光 標}
  
  exit;
  
  end;
  
  if message.msg=wm_SetFocus then exit;
  
  {屏蔽掉WM_setfocus消息,不讓Tmyedit控件獲得輸入焦點}
  
  inherited wndproc(message);
  
  {其他消息交父輩wndproc處理}
  
  end;
  
  end.
  您可以將Tmyedit 加到Component Palette中檢驗其性能。
  
  由以上介紹可以看出,只有清楚了Delphi VCL中的消息處理機制, 掌握好處理各種消息的方法和時機(必要時要借助各種工具, 如winsight32,spy 等),並結合OOP語言的特點, 我們才可能編出高質量的構件。 這當然要靠讀者在實踐中不斷摸索,積累經驗.
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved