Delphi背后---初学者参考之二(1)

TMouseActionEvent = procedure(Sender: TObject) of object;

TMyPanel = class(TPanel)

private

FOnMouseEnter, FOnMouseLeave:

FouseActionEvent;

//截获鼠标进入消息

procedure WMMouseEnter (var Message:

TMessage); message CM_MOUSEENTER;

//截获鼠标移开消息

procedure WMMouseLeave (var Message:

TMessage); message CM_MOUSELEAVE;

published

property OnMouseEnter: TMouseActionEvent read

FOnMouseEnter write FOnMouseEnter;

property OnMouseLeave: TMouseActionEvent read

FOnMouseLeave write FOnMouseLeave;

end;

//注意"Register"中的"R"一定要大写,这是Delphi语言中唯一要注意大小的地方

procedure Register;

implementation

{ TMyPanel }