Procédure pour créer et afficher une form

Version imprimable

Salut,

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

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:

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:

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

1 2 3 4 procedure TForm1.Button2Click(Sender: TObject); begin ouvrireform(form2); end;
Comment programmer la procédure ouvrireform ?
Merci !

Code:

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;

12/08/2018, 13h33
unja2010

merci Elle a bien travaillé
12/08/2018, 14h35
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
12/08/2018, 17h29
Andnotor

Code:

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

;)

1 pièce(s) jointe(s)

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

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;
Pièce jointe 403318

13/08/2018, 00h07
BeanzMaster
Citation:

Envoyé par Papy214

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

Var est nécessaire car OpenForm va créer la fenêtre et renvoie le résultat dans F. Dans ton exemple, F n'est pas instancié et pourtant Form4.Free.
Code:

1 2 3 4 5 6 Procedure OpenForm(Fc: TFormClass;var F : TForm); begin ... F := Fc.Create ... end;
La procédure OpenForm aurait pu prendre la forme d'une fonction function OpenForm(Fc: TFormClass): TForm.

Form4 := OpenForm(TForm4);
13/08/2018, 09h26
Andnotor
Citation:

Envoyé par Papy214

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

Ça ne l'est pas pour accéder aux propriétés de l'objet mais pour le créer, oui !

Citation:

Envoyé par BeanzMaster

Dans ton exemple, F n'est pas instancié et pourtant Form4.Free.

Parce que Form4 est toujours dans la liste des fiches auto-créées :mrgreen:
(Free ne génère pas d'erreur sur un pointeur nil. C'est surtout Assigned qui attire l'attention).

D'ailleurs après réflexion, Procedure OpenForm(Fc: TFormClass; var F : TForm) ne fonctionnera que si la variable passée dans F est effectivement du type TForm. Tout autre type entraînera une erreur E2033 (si déclarée TForm4 par exemple).

Pour un fonctionnement générique, ce sera plutôt :
Code:

1 2 3 4 procedure OpenForm(Fc: TFormClass; var F); begin TForm(F) := FC.Create(nil); end;

Quand j'ajoute var Un message apparaît
[dcc32 Erreur] U_form1.pas(148): E2033 Les types des paramètres VAR originaux et formels doivent être identiques

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure OuvrireFormChild(Fc: TFormClass; var F: TForm);
var
  i : integer;
  found : boolean;
begin
 found := False;
  if   form1.MDIChildCount > 0 Then
  begin
    i := 0;
    while (i <= form1.MDIChildCount-1)  and Not(found) do
    begin
     if  form1.MDIChildren[i] is FC Then
        begin
          found := true;
          form1.MDIChildren[i].Show;
        end;
     Application.ProcessMessages;
     i:=i+1;
    end;
  end;
 
  if not(found) Then
  begin
    Application.CreateForm(Fc, F);
    F.show;
  end;
end;

l’appelle de procédure par le code suivant:

Code:

OuvrireFormChild(Tform1,form1);

13/08/2018, 12h35
tourlourou

C'est bien l'illustration du problème qu'Andnotor soulève dans le dernier élément de sa réponse, et pour peu que ta variable passée à la fonction soit bien déclarée var Form1: TForm1, la solution y est donnée, en plus de l'explication...
Par contre, que vient faire la référence à Form1 dans ta procédure OuvrireFormChild ? Et ton appel OuvrireFormChild(Tform1,form1) ? Form1 peut-elle être enfant d'elle-même ? Si ce n'est pas le cas, elle serait créée et tu perdrais la référence à la précédente Form1...
13/08/2018, 13h44
unja2010
Citation:

Envoyé par tourlourou

Form1 peut-elle être enfant d'elle-même ? Si ce n'est pas le cas, elle serait créée et tu perdrais la référence à la précédente Form1...

Je m'excuse ,J'écris des erreurs
Ceci est le code correct:

Code:

OuvrireFormChild(Tform2,form2);

J'ai corrigé la procedure OuvrireFormChild
voila

Code:

OuvrireFormChild(Fc: TFormClass; var F);

Il y a une autre erreur au niveau de F.show :
[dcc32 Erreur] U_Form1.pas(103): E2018 Type Record, Object ou Class requis
Code:

1 2 3 4 5 if not(found) Then begin Application.CreateForm(Fc, F); F.show; end;
13/08/2018, 14h07
tourlourou

La déclaration du paramètre n'étant pas typée, le compilo ne sait pas comment appeler sa méthode Show, s'il en a une.
Il faut donc le transtyper : TForm(F).Show ou with F as Fc do Show.
13/08/2018, 14h30
unja2010

merci c'est bien ....