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)

转载于:https://www.cnblogs.com/xe2011/p/3876287.html