Discussion :

[cincap]

Bonjour à toutes et à tous,

Voila, j'utilise un Tsavedialog et avec un Tedit et variables, je le force à s'ouvrir dans le dossier qui vient d'être créé à l'ouverture de mon application.

Code :

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

1
2
3
4
 
  chappli := ExtractFilePath(Application.ExeName);
 
  EPathDestination.Text := ValiderPath(chappli + '\Scan');

Tout est correct, seulement j'ai 4 Tbuttons qui pilote mon Tsavedialog puisque j'ai 4 sauvegardes différentes et si j'ai le malheur de changer le dossier par défaut d'un seul Tbutton, mon Tsavedialog garde en mémoire le dernier chemin malgré que dans le onclick de chaque Tbutton, je force le directory par :

Code :

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

1
2
 
SPD3.initialdir := EPathDestination.Text;

Quelqu'un a t'il une astuce pour contrer ce problème.

Merci d'avance,

@+,

Cincap

[Just-Soft]

Salut;

je te propose de travailler avec SetCurrentDir(TonChemin) dans l'évènement OnClick de tes boutons. Normalement, cette fonction te permet de rester dans le chemin passé en valeur.

Bon codage.

[cincap]

@ Kelloucheaeh, merci de ta réponse, j'avais fait ceci entres autres mais impossible de l'attribuer à initialdir

Code :

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

1
2
 
SetCurrentDir(chappli+'\Scan');

Mes 4 Buttons se place dans le répertoire 'Scan' mais dès que je change le chemin d'un des buttons, les autres se placent dans le dernier chemin malgré le forcage.

@+,

Cincap

[cincap]

Code :

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

1
2
 
SetCurrentDir(EPathDestination.Text);

Sans résultat.

@+,

Cincap

[Just-Soft]

Re;

il faut dire que je travaille sans cesse avec get et set et je n'ai jamais eu de problèmes.

ce que je fais c'est :

Code :

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

1
2
3
4
 
monChemin := GetCurrentDir;
// mes instructions
SetCurrentDir(monChemin);

[tourlourou]

as-tu regardé du côté de l'option ofNoChangeDir et de la variable ForceCurrentDirectory ?

cela dit, cela m'évoque un vieux problème, mais où retrouver sa solution ?

... ça y est : ici ! http://www.phidels.com/php/forum/for...&postid=106604

[cincap]

@ Tourlourou, merci pour cet excellent lien, en effet la méthode de Jerome alias JROD, est la seule efficace dans ce contexte.

Dommage que dans ma recherche avec Google, je ne l'avais pas trouver.

Ce code permet de ne pas nécessairement créer le composant.

Code :

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

1
2
3
4
5
6
7
8
SPD3.InitialDir:='A:\'; // ou EPathDestination.Text 
    if SPD3.Execute then 
    begin 
          //code..... 

          SPD3.CleanupInstance; 
    end;

Même en utilisant :

Code :

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

1
2
3
4
 
monChemin := GetCurrentDir;
// mes instructions
SetCurrentDir(monChemin);

Cela ne suffit pas lors de changement du dossier.

Merci aussi @ Kelloucheaeh pour sa participation.

Que des craks sur ce forum au service de tous même un dimanche !

@+,

Cincap

[cincap]

Bonjour à toutes et à tous,

J'ai oublié de préciser que la méthode de création du composant par exemple, TSavePictureDialog est aussi valable dans ce contexte :

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
19
20
21
22
23
 
 Var 
 opendialog1:Topendialog;//(mettre Dialogs dans les uses) 
 
 implementation 
 
{$R *.DFM} 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 
   opendialog1:=Topendialog.Create(self); 
 
   opendialog1.InitialDir:= Edit1.text ; //ou 'C:\Data' etc....
 
   if opendialog1.Execute then 
 
   begin 
          //code.... 
 
   end; 
    opendialog1.Free; 
end;

Cordialement,

@+,

Cincap