delphi treeview 鼠标移动显示hint信息

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;

  X, Y: Integer);

var

  Node: TTreeNode;

begin

  with TreeView1 do

  begin

    Node := GetNodeAt(X, Y);

    ShowHint := (Node <> nil);

    if ShowHint then

    begin

      Hint := Node.Text;

      Application.ActivateHint(Mouse.CursorPos);

    end;

  end;

end;

//OR

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;
X,
  Y: Integer);
{$J+}
const
  OldItem: TTreeNode =
nil;
{$J-}
var
  AnItem: TTreeNode;
begin
  AnItem :=
TTreeView(Sender).GetNodeAt(X, Y);
  if Assigned(AnItem) and (AnItem
<> OldItem) then begin
    TTreeView(Sender).Hint :=
AnItem.Text;
   
Application.ActivateHint(Mouse.CursorPos);
    OldItem :=
AnItem;
  end;
end;

来源： <delphi treeview 鼠标移动显示hint信息_妙馨_新浪博客>

来自为知笔记(Wiz)