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;
TreeView1MouseMove,布布扣,bubuko.com
TreeView1MouseMove
原文：http://www.cnblogs.com/xe2011/p/3876288.html
