Créer une Form à partir de son nom

Version imprimable

11/12/2006, 10h02
Delphi-ne

Créer une Form à partir de son nom
Je reprends une application où les écrans sont créés en dynamique à partir des options d'un menu.
A ctuellement le code ressemble à cela
Code:

1 2 3 4 5 6 7 If Option = 'Form1' Then Form1 := Tform1.Create(Self); If Option = 'Form2' Then Form2 := Tform2.Create(Self); If Option = 'Form3' Then Form3 := Tform3.Create(Self); etc...
Donc pour 100 écrans 100 lignes et à chaque nouvel écran il faut ajouter un IF
Je recherche un moyen de faire cela en générique.

Bonjour,

Je viens de tomber sur la solution de waskol proposé le 10/05/06 sur un problème équivalent.

http://www.developpez.net/forums/sho...mique+variable

Tu dois pouvoir l'adapter, en regardant aussi du coté de la faq sur la création de des coposants dynamiques.

Je viens de réaliser l'exemple suivant qui je pense pourra t'aider

Code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,strutils;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
 
    TabForm:array[0..99] of Tform; // Voir la solution de Wascol
 
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
 
Option: string;
Form_Number:integer;
 
begin
 
  Option := 'Form2';
 
  Form_Number := strtoint(rightstr(Option,1));
 
  TabForm[Form_Number-1] := tform.Create(Self);
   try
    TabForm[Form_Number-1].Showmodal;
 
   finally
     TabForm[Form_Number-1].Free;
   end;
 
end;

A+

Pitango

11/12/2006, 13h02
JLOUIS

autre solution
Taguer les Fiches de 0 à 99 et utiliser un tableau de types de fiches
Code:

1 2 var MyFormClasses: array[0..99] of TFormClass;
11/12/2006, 14h45
Delphi-ne

Si je fais

Code:

TabForm[Form_Number-1] := tform.Create(Self);

Je vais bien créer une Form mais elle va être vide.
Moi ce que je voudrais c'est que le TForm.Create soit un TFormUn.Create ou un TFormDeux.Create.

Ou alors une fois la form créée il faut faire autre chose en plus ?
Compte tenu que toutes form sont déclarées dans les USES en tête du code est-ce qu'il n'y a pas un moyen d'analyser cela.
J'insiste un peu parce que le nombre d'écran est vraiment très important
11/12/2006, 15h14
Guile
Salut,
J'ai déjà eu ce problème il y a un moment maintenant alors je vais essayer de faire marcher ma mémoire :aie:

Alors déjà dans chaque fiche qui doit pouvoir être appeler, il faut ajouter :
Code:

1 2 3 4 5 6 Initialization RegisterClass(TMaForm) Finalization UnRegisterClass(TMaForm)
Ce qui veut dire que dans ton .dpr tu dois avoir
Code:

1 2 3 Application.Initialize .... Application.Finalize
Et une fois que tes class sont recenser, il me semble que tu peux faire une creation en faisant :

Code:

GetClass('TMaForm').Create(self)

Voilà donc comme je le disais, tout ça c'est de mémoire et non testé, j'ai peut être oublié quelque chsoe mais en tout cas, cherche dans cette direction, ça marchais très bien ;)

Bon courage :mouarf:

Le bonheur n'est pas au bout du chemin, le bonheur est le chemin:mrgreen:
11/12/2006, 15h37
pitango

:oops: Désolé Delphi-ne, je n'avais pas compris ta demande

A+

Pitango
11/12/2006, 15h43
Guile

A vérifier aussi mais il me semble aussi qu'avec ma méthode, il n'est pas utile d'ajouter les form appelées dans la clause Uses de la Form appelante. (Très pratique : moi j'avais environs 150 forms appelées :aie: )

Le bonheur n'est pas au bout du chemin, le bonheur est le chemin :mrgreen:

Salut Delphi-ne

Tu peux essayer ceci:
Code:

1 2 3 4 5 6 7 8 procedure TFormMain.CreateFormByName(FormName: string); var AForm: TForm; begin Application.CreateForm(TFormClass(FindClass('T' + FormName)), AForm); AForm.Show; end;
Bien sûr comme le précise Guile, il faut que tes classes soient enregistrées.

@+ Claudius.

11/12/2006, 16h32
Delphi-ne
Merci,
Si j'arrive à faire marcher cela ce sera vraiment très bien

Au niveau de chaque feuille j'ai placé ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 uses SysUtils, etc...; {$R *.DFM} Initialization RegisterClass(ToFormS01); Finalization UnRegisterClass(ToFormS01); end.
Par contre ou j'ai un doute c'est au niveau du code de projet
Le projet est une DLL et je ne sais pas où ecrire les Initialize. Je ne peux pas attacher à Application.
Code:

1 2 3 4 5 6 7 Exports DLL_Initialise, DLL_Ferme; begin Application.Initialize et comment initialiser ToFormS01 ? Application.Finalize end.
En plus Initialize est bien trouvé en méthode de Application mais pas Finalize (en D6)
11/12/2006, 17h00
Cl@udius

Salut,

Au niveau des DLLs je ne sais pas trop :roll: , mais dans une application nul besoin de demander un Initialize ou Finalize des forms explicitement.

Tu peux constater que les sections initialization et finalization sont automatiquement appelées à l'ouverture et à la fermeture de l'appli.
Même si l'une des forms n'est pas créée au démarrage.

Mais pour en revenir aux DLLs, tu peux faire le test en mettant un breakpoint sur le RegisterClass et sur le UnRegisterClass d'un de tes forms pour t'assurer du même comportement.

@+ Claudius
11/12/2006, 17h16
Guile

Il ne faut pas Initialiser spécifiquement "ToFormS01" ou tes autres Forms
En fait Application.Initialize lance la Partie Initialization de toutes les fiches qui font parties de ton projet.
Par contre pour Application.Finalize, j'ai peut être dit une bétise, il est possible que ça n'existe pas :oops: Désolé, j'écris de mémoire :roll:
Par contre, j'y connais pas grand chose en Dll. Pour ça je ne pexu pas t'aider :oops:

En fait au niveau de chaque form j'ai ajouté les lignes suivantes :
Code:

1 2 3 4 5 Initialization RegisterClass(TypeForme); Finalization UnRegisterClass(TypeForme);
Pour utiliser
Code:

1 2 3 4 Var oForm : TForm Begin Application.CreateForm(TFormClass(FindClass(pNomEcran)), oForm);
Ca marche parfaitement. Merci beaucoup à tous les deux.