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

markieren

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;

Mit rechte Maustaste Ordner öffnen

Mit rechte Maustaste Ordner öffnen

Forumregeln