Discussion :

[Miflon]

Question pour me permettre de choisir la solution à mettre en œuvre.
La fiche principale "Fiche_Accueil" permet de choisir un numéro de compte et un entête dont toutes les autres fiches ont besoin, surtout le numéro de compte qui servira de paramètre dans des requêtes d'interrogation d'une base de données.
L'entête apparaitra dans toutes les fiches pour rappeler de quel compte il s'agit.
Donc deux paramètres circuleront de la fiche principale vers les autres fiches.
Pour changer de compte il faut revenir à la fiche principale. À la fermeture de chaque fiche secondaire, les DBGrid sont déclarées invisibles, les autres composants TLabel, TEdit, TPinEdit ... sont initialisés à nouveau car toutes les fiches sont créées automatiquement dans le .lpr. Après choix d'un nouveau compte dans la fiche principale l'ouverture des fiches secondaires permet d'interroger la base de données avec le nouveau numéro de compte.
Le titre est assemblé dans la fiche principale puis transmis aux autres fiches.
Actuellement il y a dans la fiche principale :

Code :

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

1
2
3
4
5
6
TFiche_Accueil = class(TForm)
...
public
    const Compte : integer = 0;
    const Titre : string = '';
...

Pour utiliser le numéro de compte dans les fiches secondaires il faut faire

Code :

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

RequeteTransaction.Params.ParamByName('NUMCOMPTE').AsInteger := Fiche_Accueil.Compte;

et pour le titre

Code :

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

LTitre.Caption := Fiche_Accueil.Titre

Tout fonctionne comme je le souhaite.
Quelle solution me conseillez-vous?

[Andnotor]

Que les fiches secondaires fassent référence à la fiche principale est rarement bon. On arrive vite à des limitations dues à des références circulaires.

Je pense que tu cherches trop loin, crée juste une unité qui regroupe toutes les variables globales.

[Miflon]

OK, Merci.