Discussion :

[Papy214]

Bonjour

Dans un projet, j'ai de nombreuses TForm qui ont une procédure de classe nommée Initialise.
Elle crée une instance de la TForm si elle n'existe pas encore et appelle ShowModal.
Dans la TForm principale, je cherche à faire une procédure qui retrouve toutes les TForm qui implémente cette procédure, à l'exécuter puis à refermer la TForm.
Pour retrouver les TForm en question je fais ce qui suit et qui me ramène bien les noms de classe.
Là où je sèche, c'est comment appeler la méthode de classe dans la boucle et refermer ensuite la form qui a été créée.

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
26
27
28
29
30
 
var
  aClass: TClass;
  context: TRttiContext;
  types: TArray<TRttiType>;
  aType: TRttiType;
  Mth: TRttiMethod;
begin
  context := TRttiContext.Create;
  types := context.GetTypes;
  for aType in types do
  begin
    if aType.TypeKind = tkClass then
    begin
      aClass := aType.AsInstance.MetaclassType;
      if (aClass <> TForm) and aClass.InheritsFrom(TForm) then
      begin
        Mth := aType.GetMethod('Initialise');
        if Assigned(Mth) then
        begin
 
            //   ICI, je ne vois pas comment appeler la méthode à part Mth.Invoke(.....) mais que mettre comme paramètre ?
 
 
           // Target.Add(aClass.ClassName);  << Là je l'ajoutais à une liste.
        end;
      end;
    end;
  end;
end;

[Paul TOTH]

alors, premières chose qui me vient à l'esprit, c'est de créer une classe TInitForm qui possède une méthode de classe virtuelle Initialise...car tu pourrais alors simplement vérifier que l'instance est de type TInitForm et invoqué sa méthode plus facilement

sinon il faut passer par http://docwiki.embarcadero.com/Libra...iMethod.Invoke

[ShaiLeTroll]

TForm VCL hérite de TComponent qui implémente IInterface sans la gestion du compteur de référence mais il est tout a fait possible d'utiliser Supports pour récupérer une interface précise dessus

Code :

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

1
2
3
4
5
6
type
  IInitializableForm = interface 
    ['{00000000-0000-0000-0000-000000000000}'] // CRTL + MAJ + G
 
    function Initialize(AParam: TTypeOfParam): Boolean;
  end;

Code :

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

1
2
3
4
5
6
type
  TModuleTrucUneChoseForm = class(TForm, IInitializableForm)
  private
    { Implémentation de IInitializableForm }
    function Initialize(AParam: TTypeOfParam): Boolean;
  end;

Pour l'appel

Code :

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

1
2
3
4
5
6
var
  MaForm: TForm; // ou TModuleTrucUneChoseForm
  MaInitializableForm: IInitializableForm; 
begin
  if Supports(MaForm, IInitializableForm, MaInitializableForm) then
    MaInitializableForm.Initialize(MonParam);

Je l'ai fait en XE2 aussi bien en Delphi que C++Builder, cela fonctionnait parfaitement pour gérer des fenêtres Container pouvant recevoir des fenêtes Dockables qui ne se "connaissaient" mutuellement que via les différentes interfaces

cela donnait ce genre de déclaration pour le Container

Code :

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

TModuleReverseReceptionObjetForm = class(TForm, IModuleReverseReceptionObjet, IModuleReverseReceptionObjetContenantsOut, IModuleReverseReceptionObjetScanFilter)

Pour les Dockées qui n'offraient pas forcément les mêmes possibilités

Code :

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

TModuleReverseDecisionTriMagasinForm = class(TForm, IModuleReverseReceptionObjetDecision, IModuleReverseReceptionObjetDecisionRappel, IRestorableContenantConciliationByActionHandler)

Code :

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

TModuleReverseExpeditionFonteControleForm = class(TForm, IModuleReverseReceptionObjetDecision, IRestorableContenantConciliationByActionHandler)

[Papy214]

J'ai bien pensé à ajouter une interface mais ça me fait pas mal de modif dans l'existant.
D'où l'utilisation des rtti qui fonctionne bien.
Le problème est que la fonction Initialise est une

Code :

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

1
2
3
4
5
6
7
 
class procedure TFormAR.initialise;
begin
  if Assigned(FormAR) = False then
    FormAR := TFormAR.Create(Application.MainForm);
  FormAR.Show;
end;

Et donc je ne l'appelle pas sur une instance de la classe.

En attendant j'ai complété comme ç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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
var
  aClass: TClass;
  context: TRttiContext;
  types: TArray<TRttiType>;
  aType: TRttiType;
  Mth: TRttiMethod;
 
  T : TRttiInstanceType;
  V : TValue;
 
begin
  context := TRttiContext.Create;
  types := context.GetTypes;
  for aType in types do
  begin
    if aType.TypeKind = tkClass then
    begin
      aClass := aType.AsInstance.MetaclassType;
      if (aClass <> TForm) and aClass.InheritsFrom(TForm) then
      begin
        Mth := aType.GetMethod('Initialise');
        if Assigned(Mth) then
        begin
          // ShowMessage(aClass.QualifiedClassName);
          T := Context.FindType( aClass.QualifiedClassName) as TRttiInstanceType;
          Mth.Invoke(T.metaClassType,[]);
        end;
      end;
    end;
  end;
 
ça fonctionne mais j'aurais voulu détruire l'objet crée par l'appel de la procédure. Et là, je sais pas comment faire.
Peut-être que ce n'est pas possible ...

Pour être précis, je voulais cette procédure pour ouvrir toutes les TForm de l'application qui ont cette procédure pour voir les erreurs restantes après la migration.
Donc, en faisant ça, je m'évitais de coder chaque ouverture et fermeture pour chacune.

[hector94]

Si initialize renvoi l'objet tform créé, il doit être possible de le détruire ?

Code :

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

1
2
3
4
5
6
7
8
 
class function TFormAR.initialise : TForm;
begin
  if Assigned(FormAR) = False then
    FormAR := TFormAR.Create(Application.MainForm);
  FormAR.Show;
Result := FormAR;
end;

[Andnotor]

Je rejoins Paul sur l'héritage.

Mais la méthode n'a même pas besoin d'être virtuelle si tu passes la fiche en paramètre.

Code :

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

1
2
3
4
5
class procedure TInitForm.Initialise(var aForm :TInitForm);
begin
  if not Assigned(aForm) then
    aForm := Self.Create(Application);       // Self représente la classe
end;

[ShaiLeTroll]

Et donc je ne l'appelle pas sur une instance de la classe.

Dans le cas d'une construction par MetaClass je rejoins Andnotor et en fait, cela s'appelle du coup une Factory

Attention à la méthode d'appelle pour le Initialise de Andnotor

il faut bien faire TFormAR.Initialize(MaVarInitForm); pour que le Self soit bien TFormAR et non TInitForm

Tu peux coupler cela à une TList<TInitFormClass> pour écrire un code ultra simple pour ouvrir d'un coup toutes les fenêtres concernées.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  MaList: TList<TInitFormClass>; // TInitFormClass = class of TInitForm;
  MaClass: TInitFormClass;
  MaVar: TInitForm;
begin
  MaList := TList<TInitFormClass>.Create(); // ça peut être une class var de TInitForm et instancié dans le class constructor de TInitForm 
  MaList.Add(TFormAR); // ça voir si tu fais une liste en Singleton et une méthode RegisterMe dans la sectione Initialization dans chaque unité de Form héritée de TInitForm
 
  for MaClass in MaList do
     MaClass.Initialize(MaVar);
end;

[ShaiLeTroll]

Si l'on reste dans les RTTI

Code :

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

1
2
3
      aClass := aType.AsInstance.MetaclassType;
      if aClass.InheritsFrom(TInitForm) then
        TInitFormClass(aClass).Initialize(); // à toi  de voir si tu as besoin des instances retournées, utilise une TObjectList<TInitForm>

Pour fermer les forms d'un coup une fois toutes ouvertes

Code :

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

1
2
3
for i := Screen.FormCount - 1 downto 0 do
  if Screen.Forms[i] is TInitForm then
    Screen.Forms[i].Release(); // Ou Close si caFree dans le OnClose

Sinon tu peux simplement libérer TObjectList<TInitForm> et via le AOwnsObjects, tous les fênetres seront libérés

[Papy214]

Bonne idée ! Comme quoi la cbhose la plus simple n'est pas forcément celle qu'on voit tout de suite.

Si initialize renvoi l'objet tform créé, il doit être possible de le détruire ?

Code :

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

1
2
3
4
5
6
7
8
 
class function TFormAR.initialise : TForm;
begin
  if Assigned(FormAR) = False then
    FormAR := TFormAR.Create(Application.MainForm);
  FormAR.Show;
Result := FormAR;
end;

[Papy214]

Je préfère effectivement cette solution à base de Rtti.
Et le stockage des fenêtres ouvertes dans une TList également.

Merci à tous pour vos idées et propositions :-)

Si l'on reste dans les RTTI

Code :

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

1
2
3
      aClass := aType.AsInstance.MetaclassType;
      if aClass.InheritsFrom(TInitForm) then
        TInitFormClass(aClass).Initialize(); // à toi  de voir si tu as besoin des instances retournées, utilise une TObjectList<TInitForm>

Pour fermer les forms d'un coup une fois toutes ouvertes

Code :

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

1
2
3
for i := Screen.FormCount - 1 downto 0 do
  if Screen.Forms[i] is TInitForm then
    Screen.Forms[i].Release(); // Ou Close si caFree dans le OnClose

Sinon tu peux simplement libérer TObjectList<TInitForm> et via le AOwnsObjects, tous les fênetres seront libérés