Discussion :

[scholes]

Bonjour Tout le monde

J'ai une fenêtre fsMdiForm avec des boutons sur le toolbar pour créer des form de type MdiChild, à chaque fois que je clique sur un bouton il m'ouvre une nouvelle form MdiCHild, le problème c'est que je veux que lorsque je clique sur un bouton, il doit vérifier si la fenêtre est déjà ouverte en arrière plan il, si c'est le cas donc au lieu de créer une nouvelle, il va me ré-afficher la fenêtre existante?

merci

[ShaiLeTroll]

Il te suffit de conserver une référence vers la MDIChild dans un membre privé de la MDIForm, avec Assigned tu pourras vérifier si un Create est nécessaire ou pas

Tu peux aussi utiliser la variable globale automatiquement crée mais on a souvent des sujets sur des doublons d'instances, donc soit prudent avec !

[scholes]

J'ai pas bien saisie votre reponse !

[ALWEBER]

form2 étant la fiche Child

Code :

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

1
2
3
 
  if not Assigned (form2) then
    Application.CreateForm(TForm2, Form2);

[ShaiLeTroll]

, pourtant, je t'avais déjà donné les mêmes infos dans ton précédent sujet Aide sur mon Form

Deux TForm
TParentForm, de style fsMDIForm, déclaré dans l'unité FrmParent
TChildForm, de style fsMDIChild, déclaré dans l'unité FrmChild

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
uses ... FrmChild;
 
type
  TParentForm = class(TForm)
    BtnCallChild: TButton;
    procedure BtnCallChildClick(Sender: TObject);
  private
    FChild: TChildForm; // référence vers la MDIChild dans un membre privé de la MDIForm
  ...
  end;

Code :

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

1
2
3
4
5
6
7
8
procedure TParentForm.BtnCallChildClick(Sender: TObject);
begin
  // Assigned tu pourras vérifier si un Create est nécessaire ou pas
  if not Assigned(FChild) then
    FChild := TChildForm.Create(Self);
 
  FChild.Show();
end;

[ALWEBER]

En plus complet

Code :

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

1
2
3
4
5
 
  if not Assigned (form2) then
    Application.CreateForm(TForm2, Form2)
  else
    ShowWindow(Form2.Handle, SW_RESTORE) ;

[scholes]

merci beaucoup à vous tous.