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