| 订阅 | 在线投稿

分享

2006-12-16 17:27:52 编辑來源:互联网 繁體版 评论

 

 

　　Delphi 是shiBorland 公gong 司si 提ti 供gong 的de 一yi 种zhong 全quan 新xin 的deWINDOWS 编bian 程cheng 开kai 发fa 工gong 具ju. 由you 于yu 它ta 采cai 用yong 了le 具ju 有you 弹tan性xing 的de 和he 可ke 重chong 用yong 的de 面mian 向xiang 对dui 象xiangPascal(object-oriented pascal) 语yu 言yan, 并bing 有you 强qiang 大da 的de 数shu 据ju 库ku 引yin 擎qing(BDE), 快kuai 速su 的de 代dai 码ma 编bian 译yi 器qi, 同tong 时shi 又you 提ti 供gong 了le 众zhong 多duo 出chu 色se 的de 构gou 件jian. 受shou 到dao 广guang 大da 编bian 程cheng 人ren 员yuan 的de 青qing 睐lai. 在zai 众zhong 多duo 的de 编bian 程cheng 语yu 言yan( 如ruVB,PowerBuilder,Powerpoint 等deng) 中zhong 脱tuo 颖ying 而er 出chu. 其qi 中zhong 一yi 个geDELPHI 强qiang 于yu 其qi 他ta 编bian 程cheng 语yu 言yan( 如ruVB4.0) 的de 地di 方fang 就jiu 是shi 在zaiDELPHI 中zhong 可ke 自zi 定ding 义yi 消xiao 息xi, 并bing 可ke 直zhi 接jie 处chu 理li 消xiao 息xi. 这zhe 对dui 于yu 那na 些xie 希xi 望wang 编bian 写xie 自zi 己ji 的de 构gou 件jian(Component), 或huo 者zhe 希xi 望wang 截jie 获huo. 过guo 滤lv 消xiao 息xi 的de 用yong 户hu 来lai 说shuo 是shi 必bi 不bu 可ke 少shao 的de. 因yin 为wei 编bian 写xie 构gou 件jian 一yi 般ban 要yao 对dui 相xiang 应ying 的de 消xiao 息xi 进jin 行xing 处chu 理li. 下xia 面mian 就jiu 对duiDelphi 中zhong 消xiao 息xi 处chu 理li 机ji 制zhi 进jin 行xing 一yi 下xia 介jie 绍shao。

　　一yi.DELPHI VCL 中zhong 消xiao 息xi 的de 传chuan 递di

　　Delphi 中zhong 每mei 一yi 个geVCL(Visual Component Library) 构gou 件jian( 如ruTbutton,Tedit 等deng) 都dou 有you 一yi 内nei 在zai 的de 消xiao 息xi 处chu 理li 机ji 制zhi， 其qi 基ji 本ben 点dian 就jiu 是shi 构gou 件jian 类lei 接jie 收shou 到dao 某mou 些xie 消xiao 息xi 并bing 把ba 它ta 们men 发fa 送song 给gei 适shi 当dang 的de 处chu 理li 方fang 法fa, 如ru 果guo 没mei 有you 特te 定ding 的de 处chu 理li 方fang 法fa， 则ze 调tiao 用yong 缺que 省sheng 的de 消xiao 息xi 处chu 理li 句ju 柄bing。

　　其qi 中zhongmainwndproc 是shi 定ding 义yi 在zaiTwincontrol 类lei 中zhong 的de 一yi 个ge 静jing 态tai 方fang 法fa， 不bu 能neng 被bei 重chong 载zai(Override)。 它ta 不bu 直zhi 接jie 处chu 理li 消xiao 息xi， 而er 是shi 交jiao 由youwndproc 方fang 法fa 处chu 理li， 并bing 为weiwndproc 方fang 法fa 提ti 供gong 一yi 个ge 异yi 常chang 处chu 理li 模mo 块kuai。Mainwndproc 方fang 法fa 声sheng 明ming 如ru 下xia:

　　procedure MainWndProc(var Message: TMessage);

　　Wndproc 是shi 在zaiTcontrol 类lei 中zhong 定ding 义yi 的de 一yi 个ge 虚xu 拟ni 方fang 法fa, 由you 它ta 调tiao 用yongdispatch 方fang 法fa 来lai 进jin 行xing 消xiao 息xi 的de 分fen 配pei, wndproc 方fang 法fa 声sheng 明ming 如ru 下xia:

　　procedure WndProc(var Message: TMessage); virtual;

　　dispatch 方fang 法fa 是shi 在zaiTobject 根gen 类lei 中zhong 定ding 义yi 的de, 其qi 声sheng 明ming 如ru 下xia:

　　procedure Tobject.dispatch(var Message); 传chuan 递di 给geidispatch 的de 消xiao 息xi 参shen 数shu 必bi 须xu 是shi 一yi 个ge 记ji 录lu 类lei 型xing, 且qie 这zhe 个ge 记ji 录lu 中zhong 第di 一yi 个ge 入ru 点dian 必bi 须xu 是shi 一yi 个gecardinal 类lei 型xing 的de 域yu(field), 它ta 包bao 含han 了le 要yao 分fen 配pei 的de 消xiao 息xi 的de 消xiao 息xi 号hao 码ma. 例li 如ru:

　　type

　　Tmessage=record

　　Msg:cardinal;

　　wparam:word;

　　lparam:longint; .

　　result:longint;

　　end;

　　而erDispatch 方fang 法fa 会hui 根gen 据ju 消xiao 息xi 号hao 码ma 调tiao 用yong 构gou 件jian 的de 最zui 后hou 代dai 类lei 中zhong 处chu 理li 此ci 消xiao 息xi 的de 句ju 柄bing 方fang 法fa. 如ru 果guo 此ci 构gou 件jian 和he 它ta 的de 祖zu 先xian 类lei 中zhong 都dou 没mei 有you 对dui 应ying 此ci 消xiao 息xi 的de 处chu 理li 句ju 柄bing,Dispatch 方fang 法fa 便bian 会hui 调tiao 用yongDefaulthandler 方fang 法fa.Defaulthandler 方fang 法fa 是shi 定ding

　　义yi 于yuTobject 中zhong 的de 虚xu 拟ni 方fang 法fa, 其qi 声sheng 明ming 如ru 下xia:

　　procedure Defaulthandler(var Message);virtual;

　　Tobject 类lei 中zhong 的deDefaulthandler 方fang 法fa 只zhi 是shi 实shi 现xian 简jian 单dan 的de 返fan 回hui 而er 不bu 对dui 消xiao 息xi 进jin 行xing 任ren 何he 的de 处chu 理li. 我wo 们men 可ke 以yi 通tong 过guo 对dui 此ci 虚xu 拟ni 方fang 法fa 的de 重chong 载zai, 在zai 子zi 类lei 中zhong 实shi 现xian 对dui 消xiao 息xi 的de 缺que 省sheng 处chu 理li. 对dui 于yuVCL 中zhong 的de 构gou 件jian 而er 言yan, 其qiDefaulthandler 方fang 法fa 会hui 启qi动dong windows API 函han 数shuDefwindowproc 对dui 消xiao 息xi 进jin 行xing 处chu 理li.

　　二er.DELPHI 中zhong 的de 消xiao 息xi 处chu 理li 句ju 柄bing

　　在zaiDELPHI 中zhong 用yong 户hu 可ke 以yi 自zi 定ding 义yi 消xiao 息xi 及ji 消xiao 息xi 处chu 理li 句ju 柄bing. 消xiao 息xi 处chu 理li 句ju 柄bing 的de 定ding 义yi 有you 如ru 下xia 几ji 个ge 原yuan 则ze:

　　1.消xiao 息xi 处chu 理li 句ju 柄bing 方fang 法fa 必bi 须xu 是shi 一yi 个ge 过guo 程cheng, 且qie 只zhi 能neng 传chuan 递di 一yi 个geTmessage 型xing 变bian 量liang 参shen 数shu.

　　2.方fang 法fa 声sheng 明ming 后hou 要yao 有you 一yi 个gemessage 命ming 令ling, 后hou 接jie 一yi 个ge 在zai0 到dao32767 之zhi 间jian 的de 消xiao 息xi 标biao 号hao( 整zheng 型xing 常chang 数shu).

　　3.消xiao 息xi 处chu 理li 句ju 柄bing 方fang 法fa 不bu 需xu 要yao 用yongoverride 命ming 令ling 来lai 显xian 式shi 指zhi 明ming 重chong 载zai 祖zu 先xian 的de 一yi 个ge 消xiao 息xi 处chu 理li 句ju 柄bing, 另ling 外wai 它ta 一yi 般ban 声sheng 明ming 在zai 构gou 件jian 的deprotected 或huoprivate 区qu.

　　4.在zai 消xiao 息xi 处chu 理li 句ju 柄bing 中zhong 一yi 般ban 先xian 是shi 用yong 户hu 自zi 己ji 对dui 消xiao 息xi 的de 处chu 理li, 最zui 后hou 用yonginherited 命ming 令ling 调tiao 用yong 祖zu 先xian 类lei 中zhong 对dui 应ying 此ci 消xiao 息xi 的de 处chu 理li 句ju 柄bing（ 有you 些xie 情qing 况kuang 下xia 可ke 能neng 正zheng 相xiang 反fan）.

　　由you 于yu 可ke 能neng 对dui 祖zu 先xian 类lei 中zhong 对dui 此ci 消xiao 息xi 的de 处chu 理li 句ju 柄bing 的de 名ming 字zi 和he 参shen 数shu 类lei 型xing 不bu 清qing 楚chu, 而er 调tiao 用yong 命ming 令linginherited 可ke 以yi 避bi 免mian 此ci 麻ma 烦fan, 同tong 样yang 如ru 果guo 祖zu 先xian 类lei 中zhong 没mei 有you 对dui 应ying 此ci 消xiao 息xi 的de 处chu 理li 句ju 柄bing,inherited 就jiu 会hui 自zi 动dong 调tiao 用yongDefaulthandler 方fang 法fa.（ 当dang 然ran 如ru 果guo 要yao 屏ping 蔽bi 掉diao 此ci 消xiao 息xi, 就jiu 不bu 用yonginherited 命ming 令ling 了le）。

　　消xiao 息xi 处chu 理li 句ju 柄bing 方fang 法fa 声sheng 明ming 为wei：

　　procedure Mymsgmethod(var message:Tmessage); message Msgtype;

　　同tong 样yang 用yong 户hu 也ye 可ke 以yi 定ding 义yi 自zi 己ji 的de 消xiao 息xi, 用yong 户hu 自zi 定ding 义yi 消xiao 息xi 应ying 从congWM_USER 开kai 始shi.

　　自zi 定ding 义yi 消xiao 息xi 及ji 消xiao 息xi 处chu 理li 句ju 柄bing 举ju 例li 如ru 下xia:

　　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; { 设she 置zhiTmybutton 尺chi 寸cun 属shu 性xing}

　　color:=message.mcolor; { 设she 置zhiTmybutton 颜yan 色se 属shu 性xing}

　　{do something else}

　　inherited; { 交jiao 由youTcustomcontrol 处chu 理li}

　　end;【原文】【拼音】

 

 

 

 

 

 

 

 

 

 

 

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 中 用 户 可 以 自 定 义 消 息 及 消 息 处 理 句 柄. 消 息 处 理 句 柄 的 定 义 有 如 下 几 个 原 则: 　　1.消 息 处 理 句 柄 方 法 必 须 是 一 个 过 程, 且 只 能 传 递 一 个Tmessage 型 变 量 参 数. 　　2.方 法 声 明 后 要 有 一 个message 命 令, 后 接 一 个 在0 到32767 之 间 的 消 息 标 号( 整 型 常 数). 　　3.消 息 处 理 句 柄 方 法 不 需 要 用override 命 令 来 显 式 指 明 重 载 祖 先 的 一 个 消 息 处 理 句 柄, 另 外 它 一 般 声 明 在 构 件 的protected 或private 区. 　　4.在 消 息 处 理 句 柄 中 一 般 先 是 用 户 自 己 对 消 息 的 处 理, 最 后 用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;

　　免责声明：本文仅代表作者个人观点，与王朝网络无关。王朝网络登载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述，其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。