又定义一个私有成员：鼠标事件类型的，即一个方法指针类型
fonmousedown:tmouseevent
最后定义一个属性：类要通过这个属性将外部的事件处理函数和fonmousedown关联在一起：
onmousedown:tmouseevent read fonmousedown write fonmousedown;
当有鼠标左键点击的，系统会向窗口会发送wm_lbuttondown;消息
delphi 可以截获这个消息，如下定义消息函数：
procedure wmlbuttondown(var message: twmlbuttondown); message wm_lbuttondown;
在这个消息处理函数中调domousedown,domousedown又调 用了mousedown
在这个函数里面才到了最重要的部分
该函数是这样的：
procedure tcontrol.mousedown(button: tmousebutton;shift: tshiftstate; x, y: integer);
begin
