|
|||||||||
|
|||||||||
|
|
||||||||||||||
| | 网站首页 | 数据库教程 | web编程 | 服务器 | 程序设计 | | ||
 |
||
|
||
|
||||||
| Delphi中对消息的处理 | ||||||
作者：佚名 文章来源：不详 点击数： 更新时间：2007-8-1  |
||||||
|
在Delphi中处理Windows预定义的消息通常叫覆盖消息，另一类是自定义消息。
2.1 覆盖消息 覆盖消息是将Windows预定义的消息进行覆盖。覆盖消息的原理是通过给新的消息处理方法赋予原消息索引号。这样，当某个事件产生消息的发生事件时，根据其索引号得到新的消息处理方法。覆盖消息的处理步骤： 1)确定所需处理的消息 确定消息是确定覆盖的系统消息，不同的事件有不同的消息，例如：鼠标单击窗口中的标题栏(窗口中的蓝色彩条)所产生的消息是WM_SYSCOMMAND。 2)在程序中声明所处理的消息(覆盖原消息) 在派生类的protected部分声明消息处理方法，此方法必须是过程：例如： Procedure mymessage(var msg:Tmessage); message WM_messageindex; 在protected中声明主要是在该类的封装时将其私有化(只允许该类使用)，mymessage为此消息的过程名，用关键字message将WM_messageindex的索引号分配给mymessage,即覆盖WM_messageindex消息。WM_messageindex可以是前面提到的WM_SYSCOMMAND消息。 3)编写消息处理过程 在程序的implementation部分编写消息的实现代码。具体如下： Procedure mymessage(var msg:Tmessage); Begin //所要执行的具体内容。 End; 2.2 自定义消息 自定义消息是声明Windows没有预定义的消息，因为不是预定义的消息，所以要编写程序，发送消息。而且用户可以定义一些本消息自带的参数。通过自定义消息，作者可以编写具有特色的应用程序。 自定义消息的步骤： 1)声明消息的索引号 前面已经提到了消息索引号的范围以及分配情况。在Delphi中常量WM_USER=1024可以用做自定义消息索引号的起始值，如： const WM_mymessage=WM_USER+100; 但要注意的是一些Windows的标准组件已经占用了1024以外的索引号，为了避免这样的冲突，在Delphi中有另处一个常量WM_APP=32768，建议自定义消息的索引号以WM_APP为起点 ，如： const WM_mymessage=WM_APP+100 2)定义消息记录类型 在定义完消息的索引号后，还需要定义消息的记录类型。消息记录类型是传送给消息处理方法的参数结构类型。整个消息记录类型共128bits。定义消息记录类型时记录大小不能超出此范围。下面是一个消息记录类型的例子： Type TWMmymessage=record Msg:Cardinal;//该记录对应的消息。 Name:DWORD;//对应参数wParam Time:DWORD;//对应参数1Param; Result:Longint; end; 3)在程序中声明所处理的消息 声明消息的方法和声明覆盖消息的方法是相同的，使用规则也是一样的。 4)编写消息处理过程 和前面提到的覆盖消息处理过程方法一样，可以参考前面的例子进行编写。 5)发送自定义消息 自定义消息不是通过系统发生的某一件事所产生，而是需要我们自己发送到消息队列中。这就涉及到消息的发送问题，在用户发送消息时可以使用下面两个Windows的API函数： ① LRESULT SendMessage( HWND hWnd, UINT Msg, WPARAM wParam, LPARAM 1Param); ② BOOL PostMessage( HWND hWnd, UINT Msg, WPARAM wParam, LPARAM 1Param); 3. 应用程序设计 3.1 程序实例 下面是该程序的部分代码： unit Unit1; interface uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs, shellapi,StdCtrls;//因为要用到Windows//API函数所以在此声明Shellapi //定义消息索引号 const WM_mymessage=WM_USER+100; //定义消息类型 Type TWMmymessage=record Msg:Cardinal;//该记录对应的消息。 Name:DWORD;//对应参数wParam Time:DWORD;//对应参数1Param; Result:Longint; end; type TForm1=class(TForm) Label1:TLabel; label2:TLabel; wp:TLabel; lp:TLabel; Button1:TButton; Button2:TButton; Edit1:TEdit; Edit2:TEdit; Procedure Button1Click(Sender:TObject); Procedure Button2Click(Sender:TObject); private {Private declarations} procedure mytitlemessage(var msg:TWmsyscommand);message WM_SYSCOMMAND; Procedure myownermessage(var msg:tWMmymessage);message WM_mymessage);message WM_mymessage; public {Public declarations} end; var Form1:TForm1; implementation {R*.DFM} //覆盖消息的处理过程 procedure Tform1.mytitlemessage(var msg:TWmsyscommand); begin //得到消息的参数 case msg.CmdType of SC_CLOSE:showmessage (您单击了关闭按扭)；//按了关闭按扭 SC_MAXIMIZE:showmessage (您单击了最大化按扭)；//按了最大化按扭 SC_MINIMIZE:showmessage (您单击了最小化按扭)；//按了最小化按扭 end; inherited; end; //自定义消息处理 procedure Tform1.myownermessage(var msg:TWMmymessage); begin //得到消息的参数 wp.Caption:=inttostr(msg.name); lp.caption:=inttostr(msg.time); end; //用sendmessage函数发送消息 procedure TForm1.Button1Click(Sender:TObject); var hwn:hwnd; begin //得到当前窗口的句柄 hwn:=findwindow(`tform1',`消息处理'); //其中edit1.text、edit2.text为所要传递 //消息的参数 Sendmessage(hwn,cardinal(WM_mymessage), strtoint(edit1.text),strtoint(edit2.text); end; //用postmessage函数传递消息 procedure Tform1.Button2Click(Sender:TObject); var hwn:hwnd; begin //得到当前窗口的句柄 hwn:=findwindow('tform1','消息处理'); //其中edit1.text、edit2.text为所要传递//消息的参数 postmessage(hwn,cardinal(WM_mymessage)), strtoint(edit1.text),strtoint(edit2.text); end; end. 本文来源：http://blog.csdn.net/li19828/archive/2007/03/30/1546387.aspx
|
||||||
| 文章录入：admin 责任编辑：admin | ||||||
| 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 | ||||||
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 网站公告 | 网站地图 | 管理登录 | | |||
|
站内文章搜索
