TreeView1MouseMove

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  node: TTreeNode;
begin
  if Boolean(TreeView1.GetNodeAt(X,Y)) then
  begin
    node := TreeView1.GetNodeAt(X,Y);
    Text := node.Text;
  end;
end;




你可能感兴趣的:(treeview)