Windows消息机制和Delphi的事件驱动机制
http://blog.163.com/muhx1981@126/blog/static/81459489200610305170213/
一直以来都弄不清楚Delphi的事件驱动机制，今天看Delphi源代码，似乎有些明白了。
问题：用鼠标单击按钮，为什么能执行我写的代码？
环境：创建一个工程并保存，窗体上放置一个Button，在Button上双击鼠标左键，在Button1Click中写入一行代码，保存，所有控件的名字都保持默认的命名。
现象：
1.在Unit1.dfm中有一行语句
OnClick = Button1Click
2.TButton类中有published限制的属性
property OnClick;
从声明方式可知是继承而来的属性。
3.TButton的父类和祖先类TButtonControl, TWinControl中没有关于OnClick的信息。
4.TWinControl的父类TControl中有Published限制的属性
property OnClick: TNotifyEvent read FOnClick write FOnClick stored IsOnClickStored;
5.TNotifyEvent = procedure(Sender: TObject) of Object;
这是一个方法指针的定义。
6.跟踪FOnClick，发现只有在下面过程中使用到FOnClick:
procedure TControl.Click;
begin
{ Call OnClick if assigned and not equal to associated action's OnExecute.
If associated action's OnExecute assigned then call it, otherwise, call
OnClick. }
if Assigned(FOnClick) and (Action <> nil) and (@FOnClick <> @Action.OnExecute) then
FOnClick(Self)
else if not (csDesigning in ComponentState) and (ActionLink <> nil) then
ActionLink.Execute(Self)
else if Assigned(FOnClick) then
FOnClick(Self);
end;
这段代码有一条注释。
7.跟踪过程Click，发现只存在以下过程：
procedure TControl.WMLButtonUp(var Message: TWMLButtonUp);
begin
inherited;
if csCaptureMouse in ControlStyle then MouseCapture := False;
if csClicked in ControlState then
begin
Exclude(FControlState, csClicked);
if PtInRect(ClientRect, SmallPointToPoint(Message.Pos)) then Click;
end;
DoMouseUp(Message, mbLeft);
end;
即，当鼠标左键送开并且满足一定条件时，执行Click过程。
需要注意的是当执行Click过程之后依然需要执行DoMouseUp过程。
8.找到这个过程的定义处，发现类接口中如下定义：
procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
而消息常量：
{＄EXTERNALSYM WM_LBUTTONUP}
WM_LBUTTONUP = ＄0202;
至此，已经和Wondows消息机制联系起来了。
结论：控件的事件实际上是响应Windows消息的过程。事件用方法指针实现，当将过程赋值给方法指针，而Wondows发出了对应的消息，则通过事件（方法指针）指向的实际过程来使得对应的消息得到响应。