请教如何实现Edit控件的鼠标离开事件，急！！！！！！！！！！！

Question

现有一Edit1控件，当我鼠标从这个控件离开的时候触发一些事件，请教要怎么实现Edit控件的鼠标离开事件，急！！！！！！

Answer 1

unit MyEdit;interfaceuses
   Classes, Controls, Messages, StdCtrls;type
  TMyEdit = class(TEdit)
  private
    FOnMouseLeave: TNotifyEvent;
    FOnMouseEnter: TNotifyEvent;
  published
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
    procedure CMMouseEnter(var Msg:TMessage);message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg:TMessage);message CM_MOUSELEAVE;
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Standard', [TMyEdit]);
end;{ TMyEdit }procedure TMyEdit.CMMouseEnter(var Msg: TMessage);
begin
  inherited;
  if Assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;procedure TMyEdit.CMMouseLeave(var Msg: TMessage);
begin
  inherited;
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;end.