TreeNode markieren

[BluesKid]

Delphi-Quellcode:

procedure TForm1.TreeView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbRight) then begin
      if (htOnItem in (sender as TTreeview).GetHitTestInfoAt(x,y)) then begin
        (sender as TTreeview).Selected := (sender as TTreeview).GetNodeAt(x,y);
      end;
  end;
end;

schönen Gruß

Sam