Discussion :

[Coussati]

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 :

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

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 ?

[GoustiFruit]

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.

[Paul TOTH]

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 :

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

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[]

[Coussati]

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