Discussion :

[unja2010]

Salut,

J'ai deux boutons :
bouton1 : pour créer et afficher la form1

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
Form1.show;
end;

bouton2 : pour créer et afficher la form2

Code :

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

1
2
3
4
5
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.show;
end;

Je veux créer une procédure, par exemple nommée ouvrireform, et appeler la procédure comme suit :

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
ouvrireform(form1);
end;

Code :

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

1
2
3
4
procedure TForm1.Button2Click(Sender: TObject);
begin
ouvrireform(form2);
end;

Comment programmer la procédure ouvrireform ?
Merci !

[Papy214]

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure OpenForm(Fc: TFormClass; F: TForm);
begin
  F := Fc.Create(nil);
  F.Show;
end;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
  OpenForm(TForm4, Form4);
end;

[unja2010]

merci Elle a bien travaillé

[Charly910]

Bonjour Unja2010,

comme le paramètre de Create est Nil, je pense qu'il ne faudra pas oublier de la libérer par Free.
A+
Charly

[Andnotor]

Code :

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

procedure OpenForm(Fc: TFormClass; var F: TForm);

[Papy214]

pourquoi var ? C'est un objet, ça n'a jamais été nécessaire.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm3.Button1Click(Sender: TObject);
begin
  OpenForm(TForm4, Form4);
 
  ShowMessage(BoolToStr(Assigned(Form4), True));
 
  Form4.Free;
end;