Discussion :

[cincap]

Bonjour à toutes et à tous,

Est t'il possible sans composant spécial, de sauvegarder la position x, y d'une deuxième fiche dans un fichier *.ini existant avec la fiche principale.

Merci d'avance pour vos conseils.

Cincap

[ShaiLeTroll]

C'est dix lignes de code genre ç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
class procedure TFormTools.SavePosition(AForm: TForm);
var
  Ini: TIniFiles;
  Section: string;
begin
  Ini := TIniFiles.Create(...); // ou FileName ...
  try
    Section := Format('%s_%s', [AForm.Name, AForm.ClassName])
    Ini.EraseSection();
    Ini.WriteInteger(Section, 'Left', AForm.Left);
    ...
  finally
    Ini.Free();
  end;
end;

tu peux aussi utiliser la fonction TStream.WriteComponent qui permet de générer une DFM, et si tu la veux en texte, faut convertir via ObjectBinaryToText, voir l'aide, il y a un exemple complet !

[cincap]

Merci à toi de m'avoir mis sur la voie.

Bonne programmation !

@+,

Cincap