Delphi 类内部创建消息处理

最新推荐文章于 2016-11-26 09:25:00 发布

MAGXJ500T

最新推荐文章于 2016-11-26 09:25:00 发布

阅读量701

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi destructor constructor windows server class

本文链接：https://blog.youkuaiyun.com/MAGXJ500T/article/details/4661470

Delphi 专栏收录该内容

3 篇文章

订阅专栏

环境：

Windows Server 2003

Delphi 2010

在VCL中，直到TWinControl才开始有了消息句柄。那么对于从更底层继承的类，如何添加消息处理呢？下面就是一种非常简单的方法。

uses Classes, Messages; const WM_TEST = WM_USER + 1000; type TMsgProcDemo = class(TObject) private FHandle: THandle; protected procedure WndProc(var Msg: TMessage); virtual; procedure WMTestProc(var Msg: TMessage); virtual; public constructor Create; destructor Destroy; override; property Handle: THandle read FHandle; end; implementation constructor TMsgProcDemo.Create; begin inherited; FHandle := AllocateHWnd(WndProc); end; destructor TMsgProcDemo.Destroy; begin DeallocateHWnd(FHandle); inherited; end; procedure TMsgProcDemo.WndProc(var Msg: TMessage); begin Dispatch(Msg); end; procedure TMsgProcDemo.WMTestProc(var Msg: TMessage); begin //TODO: 收到 WM_TEST 消息后的处理 end;