Discussion :

[MiJack]

Bonjour,

J'ai 2 questions concernant la classe TShellTreeview :

1. Est-il possible d'avoir l'option "Créer nouveau dossier" lorsqu'on fait un clic droit sur le Treeview, comme dans l'explorateur de Windows ?

2. Est-il possible de mettre en évidence un répertoire à l'affichage du ShellTreeview ? J'aimerais utiliser la propriété "selected" mais elle demande un TTreeNode, alors que j'ai le path en String et ne trouve pas comment trouver le noeud grâce à lui.

Merci pour vos conseils

[philnext]

Pour ta question 1 dans la JVCL il y a un TJvBrowseForFolderDialog qui te permets ça (voir l'exemple dans \jvcl\examples\JvWinDialogs\ )

[MiJack]

Pour ta question 1 dans la JVCL il y a un TJvBrowseForFolderDialog qui te permets ça (voir l'exemple dans \jvcl\examples\JvWinDialogs\ )

Merci philnext pour le lien. Nous n'utilisons pas la JVCL actuellement, et ça me semble un peu "lourd" à installer juste pour une fonctionnalité dont j'ai besoin à un seul endroit. De plus l'option "Create new folder" n'est pas primordiale, ça aurait juste été un "plus".

Par contre le fait de pouvoir mettre en surbrillance un répertoire à l'ouverture de la fenêtre contenant le ShellTreeview est beaucoup plus importante, et là je suis surpris de n'avoir aucune réponse. Je ne pensais pas que c'était si compliqué.

Donc je refais un petit "up" pour la 2e question.

[philnext]

Dans ce composant tu as une propriété Directory qui si tu la renseigne par un répertoire, pointe sur ce repertoire, qui est en surbrillance, à l'ouverture de la fenêtre.
Pour la JVCL c'est vrai que c'est un peu 'lourd' mais l'installation est simple c'est vraiment une référence avec des exemples pour chaque composant ou presque.
Je te conseille de l'installer et de passer 2 heures à compiler les différents exemples si ça te déplait : tu désinstalles !

[Jipété]

Par contre le fait de pouvoir mettre en surbrillance un répertoire à l'ouverture de la fenêtre contenant le ShellTreeview est beaucoup plus importante, et là je suis surpris de n'avoir aucune réponse. Je ne pensais pas que c'était si compliqué.

Donc je refais un petit "up" pour la 2e question.

Yop !

J'avais ça dans un coin :
- un edit Edit1
- un bouton btnGoTo
- un ShellTreeView stvDiskExplorer

Code :

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

1
2
3
4
5
procedure TForm1.btnGoToClick(Sender: TObject);
begin
  stvDiskExplorer.Path := Edit1.Text;
  stvDiskExplorer.SetFocus; // en surbrillance
end;

Je viens de tester avant de poster, ça semble correspondre à ce que tu cherches.
Mais par ailleurs, attention aux fuites mémoire avec le TShellTreeView (google est ton ami : memory leak +TShelltreeview +Delphi), tu risques d'avoir des surprises selon l'application envisagée...

[MiJack]

Oui effectivement le SetFocus() permet de mettre en évidence le répertoire

Pour les memory leak, je croyais que ces problèmes étaient réglés avec la classe TShellTreeview de Delphi2007, mais effectivement il y avait 2 fuites et j'ai pu les corriger grâce à mon ami google, merci

Concernant la JVCL, j'essaierai de trouver un moment pour la tester