retrive chemin complet avec le nom du fichier ou du dossier de ShellTreeView/ShellListView

Question

Monsieur, je crée un projet où j'utilise ShellTreeView, ShellListView, ListView. Maintenant, je fais glisser un dossier depuis ShellTreeView et des fichiers depuis ShellListView. Maintenant, je veux récupérer le nom du fichier, y compris le chemin complet (comme: c: \ abc \ file.txt) ou un dossier (comme C: \ abc). Pour récupérer le chemin, j'utilise un bouton de commande et une zone de texte. Quel sera le code?

Dev

Answer 1

vous pouvez utiliser les propriétés TShellListView.SelectedFolder et TShellTreeView.Path pour récupérer le chemin et le nom sélectionné.

cet exemple utilise l'événement onchange et affecte le chemin dans un EditText.

procedure TForm1.ShellListView1Change(Sender: TObject; Item: TListItem; 
    Change: TItemChange); 
begin 
    Edit2.Text := ShellListView1.SelectedFolder.PathName; 
end; 

procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode); 
begin 
Edit1.Text:= ShellTreeView1.Path; 
end;