Delphi TMessage[2] WndProc和Dispath方法

Delphi TMessage[2] WndProc和Dispath方法

1、WndProc  //为控件提供特定的消息响应。来自TControl

?

1	procedure WndProc(var Message: TMessage); virtual;  //虚方法

窗体调用示例：

?

1 2	protected     procedure WndProc(var Message: TMessage); override;

• Override WndProc 以更改控件的初始Windows消息处理程序。WindowProc属性初始化为WndProc。
• WndProc实现由ControlStyle和DragMode属性指定的鼠标行为，并更新ControlState属性。它将所有未处理的消息传递给Dispatch方法。
• 当重载WndProc以提供对消息的专门响应时，请确保在末尾调用 inherited WndProc 以分派任何未处理的消息。

2、Dispath　　//根据消息参数的内容调用对象的消息处理方法。 来自TObject

?

1	procedure Dispatch(var Message); virtual;

• 调用Dispatch自动将消息传递给相应的消息处理程序。
• Dispatch确定消息是否在为对象声明的消息处理程序列表中。如果对象不处理消息，Dispatch将检查祖先类的消息处理程序列表，并继续检查祖先，直到找到特定的处理程序或耗尽祖先，在这种情况下，它将调用DefaultHandler。
• Dispatch对消息中的数据所做的唯一假设是，前两个字节包含一个消息ID，即一个整数，用于确定哪个消息处理程序Dispatch调用。尽管可以将任何类型的数据传递给Dispatch，但大多数TObject子体都需要一条消息记录，如TMessage或特定的数据结构类型。　　

调用示例：

?

1 2	public     procedure Dispatch(var Message); override;

　　

 

 

 

 

创建时间：2022.05.26　　更新时间：