Discussion :

[Stef.web]

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

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 :

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

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.

[Rayek]

Code :

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

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

[Stef.web]

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

[Bestiol]

Un autre code possible :

Code :

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

1
2
3
4
5
6
7
with TReg.Create(nil) do
Try
  ShowModal;
  //tu fais des 'trucs' ;)
Finally
  Release;
end;