Discussion :

[jer64]

Bonjour,

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

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

[TicTacToe]

c'est un peu confus ...

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.

[jer64]

Oh pardon, formintro est bien form1.

Cela donne:

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
 
 
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 :

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

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.


????????

[Laurent Dardenne]

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

[jer64]

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.