salut j'ai trois forms
form1 est la form principale , et form2,form3 sont des formes children (MDI)
Ce code pour savoir quel form est actuellement ouvert (Et il travaille avec moi)
Y a-t-il meilleure que cette méthode que j'utilise ? (L'équivalent de ce code)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure Tform2.SpeedButton1Click(Sender: TObject);
var i:integer; 
nomformOuvert:string;
begin
for i:=0 to (form1.MDIChildCount-1) do
begin
if form1.MDIChildren[i].Active then nomformOuvert:=form1.MDIChildren[i].Name;
showmessage(nomformOuvert);
end;