Boite de dialogue selection de repertoire

Question

Comment appeler la boite de dialogue selection de repertoire comme celle de winamp par ex thx d'avance :p

cs_Bestiol · Answer

Si je vois bien de quelle boîte de dialogue tu parles, il faut que tu ajoutes FileCtrl dans les uses... Ensuite, regarde la fonction SelectDirectory.

Bonne prog' !
Bestiol.

cs_mike255 · Answer

salut !

merci quand meme davoir repondu 
en faite tu dois parler de ce style de boite de dialogue:
http://www.chez.com/lesrepliquants/delphi/Image1.jpg
(copie le lien si ta un message derreur forbidden)

mais je rechercher ce style ci:
http://www.chez.com/lesrepliquants/delphi/Image2.jpg
(copie le lien si ta un message derreur forbidden)
 :-p

cs_mike255 · Answer

je sais qu'il est facile de faire ca avec une form mais je crois que ce dialogue est une fonction api car apparaissant den beaucoup dautres programmes

cs_Bestiol · Answer

La fonction que je t'ai passée est la bonne... Tout dépend des paramètres que tu passes :

SelectDirectory(VarString, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) te donnera le style du premier lien, et SelectDirectory('Sélection de répertoire', '', Dir) te donnera ce que tu veux...

Bonne prog' !
Bestiol.

JuniorFr · Answer

Salut,
Je vois ce que tu veut car je l'ai cherché et trouvé il y a peu. En fait j'ai trouvé un composant qui le fait et c'est simplisime.
Le site est torry.net et le composant est Folder Browser.
Ensuite tu met le code :


FolderBrowser1.Title := 'Sélectionner le dossier à traiter :';
  If FolderBrowser1.Execute then
    EditDirection.Text := FolderBrowser1.Folder;


Voila. J'espère que c'est ce que tu cherche.
@++
JuniorFr

cs_mike255 · Answer

mci JuniorFr s'est exactement ce que je cherchais

Pour bestiol; en effet tu as raison  il y a 2 maniere dappeler SelectDirectory dont la 1ere qui permet de faire la meme chose que le composant mais j'ai une  erreur qui me dit
here is no overloaded version of SelectDirectory that can be called with these arguments

 j'ai passe les bon parametre comme tu me las dit et declare auparavant une variable Dir et mis la directive 
{$WARN UNIT_PLATFORM OFF} pour pas avoir un msg me disant que l'unite FileCtrl n'est pas compatible pour toutes les plateforms....

phenixauthor · Answer

-------------------------------
 Réponse au message :		  
-------------------------------

> La fonction que je t'ai passée est la bonne... Tout dépend des paramètres que tu passes :
> 
> SelectDirectory(VarString, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) te donnera le style du premier lien, et SelectDirectory('Sélection de répertoire', '', Dir) te donnera ce que tu veux...
> 
> Bonne prog' !
> Bestiol.
> 
> 
> -------------------------------
>  Réponse au message :		  
> -------------------------------
>  Salut,

Une petite remarque pour éviter le message : 
< Aucune version surchargée de selectdirectory ne peut accepter ces arguments >

Il faut declarer la variable dir en ansistring !! ( en tout cas avec delphi 5 )

D'ou la fonction suivante : ( exemple delphi corrigé ! )
uses FileCtrl;

const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: ansistring;
begin
  Dir := '';
  // premiere soluce  
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
  // 2e soluce
  if SelectDirectory('Sélection de répertoire', '', Dir)
      then Label1.Caption := Dir; 
end;

bon courage  ;)

Boite de dialogue selection de repertoire

7 réponses

Votre réponse

Discussions similaires