fonmouseenter write fonmouseenter;
property onmouseleave: tmouseactionevent read
fonmouseleave write fonmouseleave;
end;
//注意"register"中的"r"一定要大写,这是delphi语言中唯一要注意大小的地方
procedure register;
implementation
{ tmypanel }
procedure register;
begin
//在delphi的ide中注册组件，显示在面板"mycontrol"上
registercomponents('mycontrol', [tmypanel]);
end;
procedure tmypanel.wmmouseenter(var message: tmessage);
begin
//确定鼠标进入中是否有代码，如果有执行
if assigned(fonmouseenter) then
fonmouseenter(self);
end;
