delphi 自定义类接收消息.docxVIP

Windows 消息是在Windows 和你的应用程序之间的通信的关键因素，也是两个应用程序之间通信的关键因素。 即使是你不处理，Windows 消息仍然会被发送到您的应用程序的表单里。例如，当用户关闭应用程序中的时候，WM_CLOSE 消息发送到窗口/表单，表单再关闭（如果你没有编程处理这个消息的话）。 一个应用程序要接收窗口消息，应用程序必须提供一个消息可以被发送到的窗体。在正常情况下，这窗口是应用程序中的主窗体。你写一个程序来处理特定的消息像WM_NCHitTest。 但是，如果你没有一个窗体来接收消息，应该怎么办呢？如果你想从你自定义的TObject 派生的类来处理消息又该怎么办呢？ 用这个类来处理windows 消息 TMyObject =类（TObject） 一个 Delphi 控件有一个窗口句柄（来自TWinControl）可以接收Windows 消息。TObject 没有实现窗口句柄，因此，您的（派生自 TObject）任何自定义类都不能接受和处理 Windows 消息，至少“默认”是不能接收的。 为了使您的自定义类能接收Windows 消息，你必须提供一个消息的发送者的窗口句柄，。诀窍是使用下面的方法（在classes.pas 定义 - 因此，可以直接使用）： AllocateHWnd（WndMethod：TWndMethod）。 AllocateHWnd 用于创