Discussion :

[boyerf]

Dans mon code, j'utilise deux fois une TSaveDialog en changeant la propriété InitialDir. Mais lors du 2eme appel, le chemin ne change pas et reste le précédent.

Vous avez une idée ? Comment corriger ça ?

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
 
procedure TFPrincipale.BitBtn_html_sauvegarderClick(Sender: TObject);
begin
FPrincipale.SaveDialog1.Filter := 'Fichiers HTML (*.htm*)|*.HTM*';
FPrincipale.SaveDialog1.InitialDir := FPrincipale.c_rep_modeles.Text;
if FPrincipale.SaveDialog1.Execute then
  begin
  if FPrincipale.SaveDialog1.FileName <> '' then
    begin
      if ExtractFileExt(FPrincipale.SaveDialog1.FileName) = '' then
          SynEdit1.Lines.SaveToFile(FPrincipale.SaveDialog1.FileName + '.html')
      else
          SynEdit1.Lines.SaveToFile(FPrincipale.SaveDialog1.FileName);
    end;
  end;
end;

[Laurent GAUDILLIER]

Bonsoir à toi boyerf

Pour ton Pb, regarde les options de boite de fichiers
en l'occurrence, "ofNoChangeDir" cela devrait résoudre ton Pb

A plus Laurent

[Nono40]

Il y a aussi que WindowsME et XP conservent les chemin utilisés par les applications, le chemin fonné dans initialDir n'est alors pas utilisé.

[antp]

Bon alors:
- ME et XP utilisent bien le InitialDir
- Il faut peut-être remettre à '' la valeur de FileName (ou du moins ne laisser que le nom et pas le chemin complet)
- Pas besoin de vérifier que le nom est différent de '' vu que Windows n'acceptera jamais que l'utilisateur n'entre pas de nom

[boyerf]

Bon alors:
- Il faut peut-être remettre à '' la valeur de FileName (ou du moins ne laisser que le nom et pas le chemin complet)

C'est exactement ça !
Comme souvent on ne voie pas les trucs les plus évidents !

Merci,
François