procedure TFrmAFCodeAdm.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var P : TPoint; begin if Button<>mbRight then exit; if TreeView1.GetNodeAt(X,Y)<>NIL then TreeView1.Selected := TreeView1.GetNodeAt(X,Y); end;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var P : TPoint;
begin
if Button<>mbRight then exit;
if TreeView1.GetNodeAt(X,Y)<>NIL then
TreeView1.Selected := TreeView1.GetNodeAt(X,Y);
end;