TreeNode markieren

[BenjaminHelbig]

Hi DP'ler

folgendes Problem habe ich. Setze ich die Eigenschaft "RightClickSelect" auf true wird beim Klick mit der rechten Maustaste auf das TreeView die eigenschaft Selected gesetzt. Aber der ausgewählte Knoten wird nicht markiert.
Hat jemand von Euch eine Idee, wie ich den Knoten manuell markiere?

Grüßle

[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