Discussion :

[franckcl]

Bonjour,

je trouve que le composant TDirectoryListBox est très vieillot dans le sens où il n'affiche pas les icônes "Ordinateur" et "Bureau" que l'on trouve dans l'explorateur Windows.
Y aurait-t-il une solution pour cela ? sachant que j'ai besoin d'afficher des informations relatives au chemin sélectionné donc j'ai besoin d'inclure ce composant dans une fiche, je ne peux pas utiliser une boite de dialogue windows comme par la fonction SelectDirectory.

Merci

[ShaiLeTroll]

Un TWebBrowser permet d'avoir un Explorateur Windows si l'on navigue en local

Si regarde autour de ShellListView ou ShellTreeView
Je crois que c'était des démos fournis avec Delphi à la base mais on trouve des variantes sur le net

[Lung]

Si regarde autour de ShellListView ou ShellTreeView
Je crois que c'était des démos fournis avec Delphi à la base mais on trouve des variantes sur le net

Ces composants existent toujours dans les derniers Delphi ?

[franckcl]

Ca marche merci !

J'ai adapté l'exemple de TShellTreeView donné par FAUCON dans ce thread:
http://www.developpez.net/forums/d46...delphi-2007-a/

[ShaiLeTroll]

Ces composants existent toujours dans les derniers Delphi ?

J'ai un doute, je ne crois pas !
J'ai un vieux code de BCB6 mais ni en 2007 ni XE2, j'ai peut-être tout simple omis d'installer les Démos

[franckcl]

Pour info, voici une partie de mon code qui marche:
(j'ai créé un panel qui reçoit le composant)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
(...)
implementation
 
{$R *.DFM}
uses ShellCtrls;
 
var
  Shell: TshellTreeView;
 
procedure TForm.FormCreate(Sender: TObject);
begin
  Shell           := TshellTreeView.Create(PanelTree);
  Shell.Parent    := PanelTree;
  Shell.align     := alclient;
  Shell.OnClick   := MyOnClickProcess;
  Shell.OnKeyDown := MyOnKeyDownProcess;
end;

Et avec ça, j'ai le bureau, l'ordinateur etc...