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;