Discussion :

[delphi2019]

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;

[SergioMaster]

Bonjour,
La propriété ActiveMDIChild renvoi un TForm
Donc, OUI, il y a plus simple, mais, comme cela ressemble plus a un exercice qu'autre chose ...

En plus, votre code, j'y vois un certain illogisme
vous exécutez ce code à partir de TForm2 or Tform2 selon vos dires est une forme MDI donc IMHO vous obtiendrez toujours Form2 comme forme MDI active
l'équivalent de votre code est donc Showmessage(Name);

[ShaiLeTroll]

form1, form2, form3, SpeedButton1
Même pour un projet de test, nommer explicitement ça t'aiderait à t'y retrouver

Et l'indentation du code ? a-t-elle été perdu à postant sur le forum ?

[delphi2019]

Merci j'ai compris