shell list view dateiname

[Skullschildi]

Ich mal wieder...


und wieder ein ausgefallenes Problem. Ich hab eine shell listview komponente und möchte den dateinamen der datei,
auf die ein doppelklick ausgeführt wird in einer stringvariable speichern.
zudem will ich, dass kein popup bei rechtsklick geöffnet wird. aber ersteres is mir wichtiger.

und wen es interessiert, mein screenshooter is fertig.
Screenshooter

Danke im voraus für die antworten

christian

[marabu]

Hallo Christian.

Stelle AutoNavigate und AutoContextMenus auf FALSE - und dann brauchst du noch zwei event handler:

Delphi-Quellcode:

procedure TDemoForm.ShellListViewDblClick(Sender: TObject);
begin
  DisplayPanel.Caption := ShellListView.SelectedFolder.PathName;
end;

procedure TDemoForm.ShellListViewContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
begin
  Handled := true;
end;

Grüße vom marabu

[Skullschildi]

dankeschön. Ich kann einfach nicht genug bekommen und hätte da noch was: wie lege ich bei shelllistview unter root einen pfad C:/x/ fest?
mit rfc:/x/ gibts zwar kein gemaule von delphi, aber auch kein ergebnis, sprich, ich seh nix.

[marabu]

Entweder du gibst eine der vordefinierten Konstanten ein (rfDesktop, ...) oder direkt einen Pfadnamen - den natürlich dann ohne rf als Präfix.

marabu

[ichbins]

normalerweise dürfte ein Doppelklick auf die Komponente reichen, dann springt ein Pfadauswahlfenster auf.

[Skullschildi]

Ich danke euch

[Skullschildi]

da wäre noch etwas: wenn ich in der shelllistview irgendwo hinklicke, wo kein symbol ist, kommt ein fehler. Wie kann ich den unterbinden?

[marabu]

Hi Christian,

du kannst das Klicken ins Leere abfangen:

Delphi-Quellcode:

procedure TDemoForm.ShellListViewDblClick(Sender: TObject);
begin
  with Sender as TShellListView do
    if SelectedFolder = nil
      then Hint := 'was klickst du?'
      else Hint := SelectedFolder.DisplayName;
end;

Grüße vom marabu

[Skullschildi]

danke, also echt, ne medaille...