Mit rechte Maustaste Ordner öffnen

[Sharky]

Ich habe mir die TShellTreeView mal installiert.

Bei mir wird auch mit der rechten Maustaste ein Knoten selektiert. Dafür gibt es ja die Eigenschaft RightClickSelect.

Ahh... Die funktioniert nur wenn AutoContextMenu := True ist. Du hast ja ein eigenes Popup.

Na, dann halt so:

Delphi-Quellcode:

procedure TDemo_Form.ShellTreeView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  node: TTreeNode;
begin
  node := ShellTreeView1.GetNodeAt(X, Y);
  if Assigned(node) then
  begin
    node.Selected := True;
  end;
end;