delphi - 如何在Delphi 6中检测鼠标何时离开TPanel？

我正在使用OnMouseMove事件检测鼠标指针何时在我的TPanel上方，是否有办法知道鼠标指针何时从其移开？

我需要面板在鼠标指针悬停于其上方时更改颜色，并在其移离它时返回其原始颜色吗？

顺便说一下，我正在使用Delphi 6。

请帮忙。

最好的祝福。

最佳答案

另一个解决方案，使用TrackMouseEvent接收WM_MOUSELEAVE；

type
  TMyPanel = class(TPanel)
  private
    FMouseTracking: Boolean;
    FOnMouseLeave: TNotifyEvent;
    procedure WMMouseLeave(var Msg: TMessage); message WM_MOUSELEAVE;
  protected
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
  published
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  end;

procedure TMyPanel.MouseMove(Shift: TShiftState; X, Y: Integer);
var
  mEvnt: TTrackMouseEvent;
begin
  inherited;
  if not FMouseTracking then begin
    mEvnt.cbSize := SizeOf(mEvnt);
    mEvnt.dwFlags := TME_LEAVE;
    mEvnt.hwndTrack := Handle;
    TrackMouseEvent(mEvnt);
    FMouseTracking := True;
  end;
end;

procedure TMyPanel.WMMouseLeave(var Msg: TMessage);
begin
  Msg.Result := 0;
  FMouseTracking := False;
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;