Bonjour,

Ma problématique : toutes les forms de mon projet doivent utiliser une instance (toujours la même = instance unique) de classe.
La classe manipulant beaucoup de données, je désire créer l'instance une et une fois au lancement du projet puis y faire référence depuis les forms.
J'ai donc instancié la classe dans la section program du genre :


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
17
18
19
program InterMsg;
 
uses
  Forms,
  Console in 'Console.pas' {Form1},
  _InterMsg in '_InterMsg.pas',
  _InterMsgList in '_InterMsgList.pas' {Form2};
 
var
MonInstance: TInternat;
 
{$R *.res}
 
begin
  Application.Initialize;
  MonInstance:= TInternat.Create;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
Comment faire référence à l'instance depuis les forms ?

Existe t'il une solution plus "propre" pour obtenir le même résultat ?

Merci par avance pour vos réponses ou suggestions.

Delphi+