Delphi VirtualStringTree OnMouseEnter и OnMouseLeave

Question

Здравствуйте, пожалуйста, есть ли какая-либо версия VirtualStringTree, которая содержит эти 2 события мыши:

OnMouseEnter а также OnMouseLeave?

Answer 1

Эти события достаточно легко добавить, если ваше дерево строк их еще не поддерживает.

  TMyImprovedVirtualStringTree = class(TSomeVirtualStringTree)
  private
    FOnMouseEnter: TNotifyEvent;
    FOnMouseLeave: TNotifyEvent;

    // Watch for MouseEnter and MouseLeave messages...
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  protected
    // Provide MouseEnter() and MouseLeave() methods
    // for descendent controls to override if needed.
    procedure MouseEnter; virtual;
    procedure MouseLeave; virtual;
  published
    // Publish the events so they show in Delphi's object inspecter.
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  end;

implementation

{ TMyImprovedVirtualStringTree }

procedure TMyImprovedVirtualStringTree.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  MouseEnter;
end;

procedure TMyImprovedVirtualStringTree.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  MouseLeave;
end;

procedure TMyImprovedVirtualStringTree.MouseEnter;
begin
  if Assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;

procedure TMyImprovedVirtualStringTree.MouseLeave;
begin
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;