Mit rechte Maustaste Ordner öffnen

[SaFu]

Hi

Wie kann ich mit der rechten Maustasste einen Ordner in einer ShellTreeview öffnen und selektieren bevor das Popup öffnet.

Immoment muss ich erst die Linke Taste drücken und danach kann ich die funktion mit dem Popup ausführen

das habe ich bis jetzt aber das funzt net

Delphi-Quellcode:

procedure TForm7.ShellTreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  with ShellTreeView1 do // um den Ordner der  ShellTreeView zu öffnen
   begin
      Path := IncludeTrailingPathDelimiter(Root) + ExtractFileName(ShellTreeView1.Path);
      ShellTreeView1.SetFocus; // zeile Blau Markieren
   end;
end;