Fenetre MDIRésolu

Question

VOila j'ai une fenetre parents avec des fenetres Mdichild qui s'ouvre en cliquant sur le menu. 
Le but est de ne pas pouvoir ouvrir deux fenetres filles en meme temps. Quand l'utilisateur veut ouvrir une autre fenetre que celle qui est demand&#233;, on lui propose si il veut fermer la fenetre en cours .

Je voudrais juste savoir comment r&#233;cup&#233;rer le nom ou la Tform de la fenetre en cours ?

Mon code
function Tcommun.Ouverture_fenetre_menu():boolean ;
begin


  if fm_MenuDossier.MDIChildCount > 0 then begin  
   // Je met un message pour demander si il veut fermer le fenetre en cours
      // Si oui 
         --> il faut que je fasse un .close pour la fenetre mais le hic comment recuperer le nom ?
      result := true;
      // si non 
         --> result :=false;
   end else begin 
    result: =true ;
  end;
end;

Cirec · Accepted Answer

Salut,
Essaye comme ceci :

procedure TfrMain.Button3Click(Sender: TObject);
 var i : integer;
begin
for i:=0 to MDIChildCount - 1 do
  If MDIChildren[i].Active Then
  Begin
  Case MessageBox(Application.MainForm.Handle , {D&#233;claration de la MessageBox}
       PChar(Format('La fen&#234;tre %s est ouverte voulez-vous la fermer ?'
       ,[MDIChildren[I].Caption ]))
       , PChar('Fermer la fen&#234;tre MDI'), 36) Of
    IDYES     :MDIChildren[i].Close;
    IDNO      :Exit;
  End;
  // autre traitements
End;

@+
Cirec

Fenetre MDI

1 réponse

Votre réponse

Discussions similaires