在OnMouseDown里写 procedure TForm2.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var TempNode:TTreeNode; begin TempNode := TreeView1.GetNodeAt(x,y); if (TempNode<>nil) and (TempNode=TreeView1.Selected) then begin //这里写你要做的事情 end; end;
procedure TForm2.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
TempNode:TTreeNode;
begin
TempNode := TreeView1.GetNodeAt(x,y);
if (TempNode<>nil) and (TempNode=TreeView1.Selected) then
begin
//这里写你要做的事情
end;
end;