Discussion :

[BuzzLeclaire]

Bonjour,

J'ai pas trouvé de source qui permetterais d'enregistrer la position et la taille de chaque fenêtre.

alors j'ai fais ça :


A vous de juger et même de me corriger.
Exemple complet : MémoPositionDesFenêtres.zip ci-joint

Utilisation simple :
- mettre ParametreFenetre.pas dans votre projet

Dans le Show de la form

Code :

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

1
2
3
4
procedure TForm3.FormShow(Sender: TObject);
begin
 LirePositionFenetre(Form3, 'Setting');
end;

Dans le Close de la form

Code :

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

1
2
3
4
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  EcrirePositionFenetre(Form3, 'Setting');
end;

SI vous connaisez une source qui fait pareil en 10 fois mieux, je suis preneur.

[Linkin]

ça m'a l'air correct. Il y a peut-être d'autres solutions avec ReadComponent ou SetWindowPlacement, mais c'est moins simple.

Deux remarques:
- à la place du OnSHow et du OnClose, je mettais le code dans le OnCreate et le OnDestroy.
- au lieu de mettre le nom de la form (Form3 dans l'exemple), je mettrais Self, ça permet d'instancier cette fenetre sous un autre nom que Form3.

[BuzzLeclaire]

J'ai encore corrigé quelque erreur.

[Pedro]

Merci pour ta proposition

[JeanMarc_T2k]

J'ai fait également quelque chose dans le même principe. Toutefois, j'enregistre les tailles et positions dans une table.
Cela permet par exemple d'enregistrer ces données en fonction de l'utilisateur.
J'enregistre (et je restitue) d'autres dimensions, par exemple :
- les largeurs de colonnes, dans une grille
- les choix de l'utilisateur (par exemple la propriété itemindex d'une combobox, ou si une case est cochée ou non, etc....)
- les dimensions de panels, lorsqu'il y a un splitter
etc..

Pour cela, il vaut mieux le faire dans l'évènement onShow, lorsque tout est bien en place, et créé.