让你的Delphi非窗口自定义控件接收Windows消息
来源:互联网 发布:linux dns配置 ubuntu 编辑:程序博客网 时间:2024/06/05 03:09
原文:http://delphi.about.com/od/windowsshellapi/a/receive-windows-messages-in-custom-delphi-class-nonwindowed-control.htm
Windows消息用来在Windows系统与应用程序之间,或应用程序与应用程序之间进行交互通迅。例如:当用户关闭应用程序窗口时,WM_CLOSE消息就会发送到相应的窗口。
对于一个接收Windows消息的应用来说,必须提供一个窗口来接收消息。通常它会是应用程序的主窗口,你写一个过程处理特定消息,比如WM_NCHitTest,那么就可以处理该消息 。但是如果没有窗口来接收消息,你要一个从TObject继承的类来处理消息,又该怎么办呢?
在类TMyObject = class(TObject)中处理Windows消息
一个从TWinControl继承的Delphi控件是可以接收Windows消息的。TObject类并没有提供一个窗口句柄,因此,从TObject继承的类是没有办法处理Windows消息 的,至少默认情况下是这样的。为了接收Windows消息 ,你需要为你的自定义类提供一个窗口句柄来接收Windows消息。关键是使用classes.pas中定义的下面介绍的方法:
AllocateHWnd(WndMethod : TWndMethod).
AllocateHWnd用来创建一个不与窗口控件关联的窗口
WndMethod : TWndMethod
用来指定生成的窗口响应消息的窗口过程。
DeallocateHWnd
DeallocateHWnd 用来销毁AllocateHWnd创建的窗口。
下面的TMsgReceiver是从TObject继承的类,并且能处理Windows消息。
interfaceTMsgReceiver = class(TObject)private fMsgHandlerHWND : HWND; procedure WndMethod(var Msg: TMessage);public constructor Create; destructor Destroy; override;end;implementationconstructor TMsgReceiver.Create;begin inherited Create; fMsgHandlerHWND := AllocateHWnd(WndMethod);end;destructor TMsgReceiver.Destroy;begin DeallocateHWnd(fMsgHandlerHWND); inherited;end;procedure TMsgReceiver.WndMethod(var Msg: TMessage);begin if Msg.Msg = WM_MY_UNIQUE_MESSAGE then begin //do something end else Msg.Result := DefWindowProc(fMsgHandlerHWND, Msg.Msg, Msg.wParam, Msg.lParam);end;
在WndMethod过程中(就是隐藏窗口的窗口过程)你可以处理你感兴趣的窗口消息。对于其它消息需要调用默认的消息处理过程DefWindowProc。
处理来自其它应用的消息
通过上面的代码,假设其它应用使用RegisterWindowMessage注册了Windows消息,你现在也能处理来自其它应用的消息。RegisterWindowMessage通常用来注册互相协作的应用程序间的消息.
发送消息的应用可能有如下代码:
WM_MY_APP_MESSAGE := RegisterWindowMessage('MSG_MY_APP_MESSAGE');
当消息发送到其它窗口时,WM_MY_APP_MESSAGE是一个无符号整数,假设我们在一个事件中发送该消息:
procedure TClickSendForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin PostMessage(HWND_BROADCAST, WM_MY_APP_MESSAGE, x, y);end;
HWND_BROADCAST参数确保WM_MY_APP_MESSAGE消息被发送到所有的顶层窗口,包括禁用或不可见的窗口,层叠窗口,弹出窗口,当然也包括我们的TMsgReceiver隐藏窗口,为了处理该消息TMsgReceiver的WndMethod如下:
procedure TMsgReceiver.WndMethod(var Msg: TMessage);begin if Msg.Msg = WM_MY_UNIQUE_MESSAGE then begin Point.X := Msg.LParam; Point.Y := Msg.WParam; // just to have some "output" Windows.Beep(Point.X, Point.Y); end else Msg.Result := DefWindowProc(fMsgHandlerHWND, Msg.Msg, Msg.wParam, Msg.lParam);end;
"Point"是TMsgReceiver的一个字段. TMsgReceiver接收到其它的应用程序用户在窗口的哪里点击了鼠标。WM_MY_UNIQUE_MESSAGE也需要在TMsgReceiver中进行注册。
源代码下载:http://delphi.about.com/library/code/tmsgreceiver.zip
- 让你的Delphi非窗口自定义控件接收Windows消息
- 让自己写的Delphi控件具备接收windows消息的能力
- 自定义控件(自定义窗口)在对话框中接收不到WM_CHAR消息的解决方法
- delphi中没有窗口句柄的控件如何处理windows消息
- DELPHI中自定义消息的发送和接收
- Windows(WinAPI)窗口创建后,依次接收的消息
- Delphi让控件随着窗口的大小而改变
- 窗口过程接收的消息
- 实现真正的非全屏窗口和自定义消息对话框
- C# 发送、接收和处理自定义的WINDOWS消息
- windows 无窗口线程消息接收
- 让你动态创建的控件响应消息!
- 你的第一个Windows程序——窗口消息
- 关于WM_NOTIFY消息接收窗口的问题
- win32 创建仅接收消息的窗口
- 数据窗口可以接收的消息
- c# 创建只接收消息的窗口
- DLL的线程中创建WINDOWS窗口并接收U盘移动磁盘查入消息
- oracle 创建job定时执行任务
- java 初始化顺序
- Java解析HTML之HTMLParser使用与详解
- VMware的“桥接”、“NAT”、“Host-only”上网方式的区别
- NOJ [1314] Brave Sword [1416] Clear Up
- 让你的Delphi非窗口自定义控件接收Windows消息
- 组合 问题
- preparedStatement和Statement 有什么不一样
- “招聘兄弟会”演讲——了解HR
- 手动使用EDM 生成器 (EdmGen.exe) 工具生成 SSDL,CSDL,MSL 文件
- springMVC3学习(七)--Interceptor拦截器
- 基于贪心算法的几类区间覆盖问题
- JDK1.6新特性
- 2014.05.19Csdn培训感受