Discussion :

[Greldinard]

Bonjour à tous,

J'ai besoin d'une fiche de sélection de répertoire.
Je sais qu'il en existe intégré dans Delphi via les fonctions SelectDirectory, mais je voudrais un look plus sympa et surtout plus moderne.
Cf. la capture en pièce jointe.

Je sais que Word 2003 (par exemple) utilise la fenêtre jointe et je l'ai déjà vue dans d'autres programmes et utilitaires.

Est-ce une fenêtre standard de Windows ? Savez-vous comment l'utiliser ?
Sinon existe-t-il des composants proposant cette interface ou une similaire ?

PS: Je suis sous Windows XP. Je voudrais pouvoir initialiser le répertoire affiché avant de faire afficher la fiche

Merci d'avance

Greldinard

[ShaiLeTroll]

PromptForFileName voir SaveDialog et OpenDialog peuvent te donner des idées ! mais faut fouiller dans le Code !
Je ne peux parler qu'en D7, il faut bidouiller (j'avais trouvé le code en VBS mais je ne l'ai pas utilisé)
Pour les Delphi suivant, D2009 ou D2010 peut-être que cela propose plus d'options ???

Attention selon les paramètres SelectDirectory est différent !
Voir si ShBrowseForFolder proprose de nouvelles fonctions sur XP !

[Nono40]

Une solution que j'utilise : le dialogue de sélection de fichier dont je force un nom de fichier avant l'appel. Au retour de l'appel je ne conserve que la partie répertoire avec ExtractFilePath(OpenDialog1.Filename).

[ShaiLeTroll]

Idem, j'ai aussi fait cela, parce qu'il fallait choisir un dossier contenant un ensemble de fichier (une série d'extension) mais si tu veux choisir un dossier vide, ça fonctionne pas non ?

[Nono40]

Idem, j'ai aussi fait cela, parce qu'il fallait choisir un dossier contenant un ensemble de fichier (une série d'extension) mais si tu veux choisir un dossier vide, ça fonctionne pas non ?

Si, dans le Onchange du dialogue il faut forcer le nom du fichier (sans le chemin) et mettre à vrai l'option d'ouverture d'un fichier inexistant.

Cette idée n'est pas de moi, c'est la méthode utilisée par XNews fait en Delphi.

[ouiouioui]

sa serait à ajouter à la faq sa, je l'ai noté pour moi en tout cas

[Nono40]

En fait c'est tout simple !

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.FileName:='Sélection répertoire';
  if Not OpenDialog1.Execute then
    Exit;
  ShowMessage(ExtractFilePath(OpenDialog1.FileName));
end;

Bien sur il ne faut pas que l'option 'ofFileMustExists' soit cochée.

Si l'utilisateur click sur un nom de fichier entre temps ce n'est pas grave vu que seul le chemin compte.

[Greldinard]

Merci à tous pour vos réponses,

Pour info, j'ai testé Delphi 2009 et il n'y a rien de nouveau dedans concernant la gestion des répertoires.

Nono40, merci pour ton astuce, elle permet de faire rapidement une sélection de répertoire a peu près comme je veux mais sans code.

Pour information j'ai fureté un peu partout sur la toile et je crois que j'ai trouvé un composant sympa qui fait ce que je veux : TDialogEx
Comme il semble libre et gratuit, je vous fais profiter du lien.
http://my.opera.com/guy8th/blog/dialogex

ShaiLeTroll tu avais bien raison. Pas de solution miracle si l'on veut un résultat nickel, il faut bien redéfinir beaucoup de chose et donc taper dans le code.

Encore merci à tous,

Je vais continuer à Tester TDialogEx mais je pense qu'il pourrait peut-être faire partie de la page téléchargement ? J'ai essayé plein d'autres essais trouvé ça et la et celui-ci me semble le plus abouti.
Qu'en pensez-vous ?

[boulbi]

Hello j'ai le "même" problème je cherche une jolie fiche selectdirectory

j'ai essayé cette solution : http://www.swissdelphicenter.ch/torr...de.php?id=1802

mais en fait c'est un selectdirectory amélioré on ne peut pas par ex prédéfinir un point de départ( enfin si avec le root mais du coup on ne peut pas remonter au dessus du root ).
et pis en plus le code a planté en pleine éxcution sous D2010 ?

Je fais esayer aussi TdialogEx , sinon je me rabattrais sous l'astuce avec le opendialog ?

Edit : en fait le TdialogEx est joli mais a un fonctionement "bizarre" en effet si on sélectionne le répertoire que l'on veut et que l'on appuie sur "open" le premier coup il ouvre le répertoire sélectionné et l'on doit recliquer sur open pour vraiment valider le choix en fait je d'apres le code du composant il utilise la meme technique que le Topendialog modifié


Vous avez une autre piste ?