Discussion :

[sondo]

Bonjour,

Ma question est dans le intitulé de mon message. J'ai une form MDI faisant appel au form fsMDIChild de cette manière en passant par les menus :

Code :

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

1
2
3
Form1 := TForm1.Create(Application);
  Form1.Width := 870;
  Form1.Height := 606;

En cliquant plusieurs fois sur le menu en question on peux ouvrir la form autant de fois que l'on veux. Y'at-il un code en Delphi permettant de créer une seul la form?.
Merci.

[Andnotor]

Si Form1 est assigné, la fiche existe déjà:

Code :

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

1
2
3
4
5
6
if not Assigned(Form1) then
begin
  Form1 := TForm1.Create(Application);
  Form1.Width := 870;
  Form1.Height := 606;
end;

[ShaiLeTroll]

En complément, tu peux ajouter un Show pour afficher la fenêtre au premier plan si celle-ci est caché par une autre ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TMDIMainForm.MenuClick(Sender: TObject);
begin
  if not Assigned(Form1) then
  begin
    Form1 := TForm1.Create(Application);
    Form1.Width := 870;
    Form1.Height := 606;
  end;
 
  Form1.BringToFront();
end;

[sondo]

Merci a vous tous ça marche.
Bon courage.

[sondo]

Salut,

Je reviens sur ma question d'hier. A la suite de la mise en pratique de if not Assigned, j'ai remarqué quelque chose.
Si on clique sur un menu et la form se créée, ensuite on ferme la form, et enfin on clique à nouveau sur le menu pour ouvrir la fiche fermée auparavant il y'a une violation d'accès. Pourquoi.
En clair il n'est plus possible de d'ouvrir une form fermée il y'a un instant.
Merci de me guider à nouveau.

[Andnotor]

Form1 est invalide si tu ne le forces pas à nil.

Il faut savoir depuis où tu libère la fiche.

Si c'est par une action extérieure à la fiche, utilise FreeAndNil(Form1).
Si c'est depuis la fiche, ajoute dans OnDestroy:

Code :

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

1
2
3
4
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Form1 := nil;
end;

[sondo]

Code :

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

Form1 := nil;

C'est correcte. Merci de m'avoir enseigné.