D7/création dynamique d'une Form

Bonjour,

Avec 2 form, je n'arrive pas a créer dynamiquement une Form et en détruire une seconde:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TFormIntro.ouvrir1Click(Sender: TObject); begin     try form2.Destroy; except end; form2:=tform2.Create(self); form2.Caption:='FORM 2'; form2.show; form1.Destroy;   end;

---

En fait ma form1 se détruit, mais ma form2 disparaît à la destruction de form2 ????????

Merci d'avance pour votre aide.

Jer

c'est un peu confus ... 8O

Mais faut-il traduire FormIntro = Form1 et
... disparait à la destruction de ma form1
????

Si c'est le cas c'est normal

Form2 est un objet appartenant à Form1
--> lorsque form1 est détruit, Form2 l'est aussi.

Oh pardon, formintro est bien form1.

Cela donne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.ouvrir1Click(Sender: TObject); begin     try form2.Destroy; except end; form2:=tform2.Create(self); form2.Caption:='FORM 2'; form2.show; form1.Destroy;   end;

---

Mais je note que ce code fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.ouvrir1Click(Sender: TObject); begin   form2.show; form1.Destroy;   end;

---

Si la destruction de form1 entraine celle de la form2, alors le 2ème code ne devrait pas marcher.


????????

Salut,
utilise Free au lieu de Destroy et évite les blocs d'exception vide.
Utilise ShowModal.
As-tu consulté la FAQ ?

Si j'utilise showmodal, je n'arrive pas à détruire la form1, or c'est ce que je cherche à faire pour éviter en réduisant form2, d'avoir form1 apparent.

Je veux détruire aussi la form2 pour la rafraichir lorsque je l'appelle à nouveau.