Discussion :

[Shogun]

Comment faire un explorateur de fichier (type "Ouvrir ...") mais en limitant la navigation (cad ne pouvoir accès qu'a un dossier.

Merci de votre aide

[Pedro]

De quel explorateur de fichiers tu parles? Explorer.exe?

[MD Software]

Pourqoi ne pas utiliser l'évènement onFolderChange d'un TOpenDialog. Si l'utilisateur descent trop bas ou monte trop haut, tu modifies le répertoire courant.

[Shogun]

Pourqoi ne pas utiliser l'évènement onFolderChange d'un TOpenDialog. Si l'utilisateur descent trop bas ou monte trop haut, tu modifies le répertoire courant.

Je viens d'essayer, mais cela ne marche pas ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure Tprojet.OpenDialog1FolderChange(Sender: TObject);
var
tempChemin : string;
begin
  if Pos(cheminPDF, openDialog1.FileName)=0 then
    begin
      openDialog1.Options.
      tempChemin := cheminPDF;
      Delete(tempChemin,Length(tempChemin),1);
      openDialog1.FileName := tempChemin;
    end;
end;

[Pedro]

C'est pas

Code :

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

1
2
 
OpenFileName.InitialDir:=TempChemin;

Ou quelque chose comme ça?[/code]

[Shogun]

C'est pas

Code :

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

1
2
 
OpenFileName.InitialDir:=TempChemin;

Ou quelque chose comme ça?[/code]

J'ai essayé aussi, InitialDir c le chemin dans lequel il se situe lorsque l'on ouvre la boite de dialogue ... mais le problème après, il peut tout parcourir.

[Rayek]

Pourquoi ne pas utiliser une filelistbox qui pointe sur le répertoire désiré ?

[Shogun]

Pourquoi ne pas utiliser une filelistbox qui pointe sur le répertoire désiré ?

C dans quel onglet ce composant ?

[Pedro]

Onglet Win 3.1...
Mais une idée me vient à l'esprit: il n'y aurait pas une propriété dans Options qui permet de bloquer la navigation? genre odCanChangePath à mette à false?

[Shogun]

Ah g trouvé !

Mais on peut pas parcourir les sous-repertoire ???

En fait je veux que l'utilisateur puisse "se promener" dans un repertoire spécifique ainsi que ses sous-repertoires mais pas au niveau "plus haut"

[Rayek]

bin tu peux scan tout ton répertoire pour recup les dossiers, et tu les mets dans un treeview, quand la personne clique sur un des éléments du treeview tu lui affiches les fichiers du répertoire dans une filelistbox.

[MD Software]

Au prie, si tu n'y arrive pas, joue avec Windows.
En faisant un "subst" tu vas transformer un répertoire en disque virtuel. ainsi, les utilisateurs ne pourront pas remonter au dessus.

Mais c'est de la bidouille, de niveau très moyen d'ailleurs

[sjrd]

Tu peux aussi utiliser un TShellTreeView, il propose une propriété Directory (ou qqch comme ça) qui spécifie la racine des dossiers à utiliser.