Identifier les form crées dynamiquement

bonjour

avec un ami, nous avons élaboré un projet à 2 form (form1 et form2) dont le but est de créé auant de form2 que l'on veuille à partir d'un boutton (par ex) se trouvant sur la form1

le code fonctionne :

- déjà dans "Project1" (source) on enlève : Application.CreateForm(TForm2, Form2);
- dans les var global de form2, on enlève : Form2: TForm2;

nous avons du effectuer ces modifications, car nous ne pouvions pas compiler le projet

et le code du bouton se trouvant en form1 est :

Code:

---

1 2 3 4 5 6 7 8 9

var fiche : Tform2; begin Application.CreateForm(TForm2, fiche); fiche.Init('ok'); fiche.Show; showmessage(fiche.Name) // j'expliquerai plus bas pourquoi ceci end;

---

en cliquant sur le bouton x fois, nous avons x fois l'ouverture d'une form2

le soucis c'est que je n'arrive pas à identifier chaque formx nouvellement crée :(

j'aimerais par exemple depuis la form1 agir sur les autres form, mais je ne connais pas leur nom

un petit indice ? le showmessage que j'ai rajouté à la fin
j'ai remarqué :
lors de la 1ere creation fiche.name = form2
lors de la 2em creation fiche.name = form2_1
lors de la 3em creation fiche.name = form2_2
ainsi de suite ...

ça peut sans doute aider ?

Pour commencer doucement, tu peux par ex. donner un nom à tes fiches à la création. Après le Application.CreateForm -> fiche.Name := 'MonNom';
Ou changer n'importe quelle propriété (ex. Tag), ou encore ajouter une propriété à ta fiche.

le nom de la fiche n'a pas d'importance !

il te suffit d'avoir dans Form1 une liste (TList) des fiches que tu crées.

Code:

---

1 2 3 4 5 6 7

var fiche: TForm2; begin fiche := TForm2.Create(Application); liste.Add(fiche); end;

---

tu pourras alors accéder à chaque fiche par TForm(fiche[i])

note également que les fiches de l'application sont recensées dans Screen.Forms[]

merci à vous 2 :)

paul, j'ai utilisé une boucle (0 to formscount-1) et ensuite FindComponent pour retrouvé par exemple le memo se trouvant sur la fiche

je pense que ça fonctionne :)