在delphi中，有时候我们希望对象可以接收windows消息，怎么办呢？因为要接收windows消息起码要有windows Handle，难道要建立的一个可见窗口？那样似乎太差强人意了。delphi提供了一个函数Classes.AllocateHWnd。分析AllocateHWND发现delphi CreateWindowEx一个尺寸为0的窗口，窗口是生成了，，Handle也有了，但窗口的消息要处理吧，否则怎么说让对象接收Windows消息呢，但我们都知道类函数和Windows消息处理函数是不一样的，类函数的地址应该是Self+函数的偏移。这个delphi也帮我们处理好了，在AllocateHWnd内部将我们传入的对象函数通过MakeObjectInstance转换为普通函数，然后我们就可以在对象内部处理Windows消息了。
简写代码如下：
TMyHandleWinMessage = class
private
FWinHandle: HWND;
procedure WndProc(var Msg: TMessage);
public
constructor Create;
destructor Destroy; override;
end;
Create 实现:
FWinHandle = Classes.AllocateHWnd(WndProc);
Destroy实现：
if FWinHandle <> 0 then Classes.DeallocateHWnd(FWinHandle); // 必须释放系统核心对象
WndProc实现：
在这里处理你感兴趣的消息，否则交给Windows处理。
With Msg do
if Msg = XXX then // 你打算处理的消息
begin
//
end
else
Result := DefWindowProc(FWinHandle, Msg, wParam, lParam);
Delphi使用普通类对象创建接受window消息（使用Classes.AllocateHWnd为对象创建一个尺寸为0的窗口，从而有了Handle）good