我想为bitbtn 增加两个方法 OnMouseIn ,OnMouseLeave , 我知道在WinControl中有两个相应的消息，我在做时有点不顺给点好意见也有分，

Question

type
  TMyBitBtn = class(TBitBtn)
  private
    FOnMouseEnter: TNotifyEvent;
    FOnMouseLeave: TNotifyEvent;
  protected
    procedure CMMouseEnter(var Message: TMessage); message CM_MouseEnter;
    procedure CMMouseLeave(var Message: TMessage); message CM_MouseLeave;
  public
    .....
    .....
  published
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvnet read FOnMouseLeave write FOnMouseLeave;.....
.....
....procedure TMyBitBtn.CMMouseEnter(var Message: TMessage);
begin
  if Assigned(FOnMouseEnter) then FOnMouseEnter(self);
end;procedure TMyBitBtn.CMMouseLeave(var Message: TMessage);
begin
  if Assigned(FOnMouseLeave) then FOnMouseLeave(self);
end;