J'utilise une DLL devant accéder aux données.
Elle inclut donc un DataModule.
Le DataModule est initialisé à l'ouverture de la DLL et je voudrais savoir le rendre Global pour que les différentes unités le voient sans que j'ai à le repasser en paramètre.

Actuellement mon code ressemble à cela
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
20
21
22
23
24
25
Var
   DM    : TDM;
   oForm : ToFormS01_ECIV;
 
 
{$R *.RES}
Procedure xxx(P1        : String;
              var Objet : TPanel);
Var
   oPanel: TPanel;
   oForm : Tform;
 
Begin
   DM := TDM.Create(Nil);
   DM.DM_Initialisation;
   oForm := TW_Test.Create(Application);
   oForm.ParentWindow := Objet.Handle;
   oForm.Align        := alClient;
   oForm.Show;
End;
 
Exports xxx;
 
begin
end.
Le problème est qu'au niveau de la Form la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
   With l_ADO_Query Do Begin
        Connection := DM.DM_ADO_Connection;
DM est égal à Nil