Création d'un TForm dynamic

Bonjour
je cherche depuis quelques heures et je ne trouve pas :oops: !

Voila mon problème est simple, j'ai besoin d'ouvrir une fenetre qui n'est pas encore crée.

J'utilise ce code mais il ne marche pas.

Code:

---

1 2 3 4 5 6 7

procedure TMain.FormCreate(Sender: TObject); Var Reg : TForm; begin <div style="margin-left:40px">Reg := Treg.Create(Application); Reg.Showmodal; //Je fait des truc Reg.Free;</div>end;

---

Si une personne peux me rafraichir la mémoire. ;)

Merci par avance.

Stéf.

Code:

---

1 2 3 4 5 6 7

procedure TMain.FormCreate(Sender: TObject); Var Reg : TForm; begin Reg := TForm.Create(self); Reg.Showmodal; //Je fait des truc Reg.Free; end;

---

Ca devrait mieux focntionner comme ça ^^

Merci pour ta réponse, mon code étais juste, j'avais un problème avec des directives de compilation qui avait sauté !!! :oops: désolé et merci encore

Un autre code possible :

Code:

---

1 2 3 4 5 6 7

with TReg.Create(nil) do Try ShowModal; //tu fais des 'trucs' ;) Finally Release; end;

---