Hi,
mittels FindComponent('Form1'); zum Beispiel. Oder man geht allgemein die offenen MDIChilds durch, in einer Schleife könnte das dann so aussehen:
Delphi-Quellcode:
var c,cClassname:integer;
begin
for c:=0 to MDIChildCount-1 do
for cClassname:=1 to 6 do
if (MDIChildren[c].Classname = 'TForm'+IntToStr(cClassname)) then
ShowMessage('Dies ist children #'+IntToStr(cClassname));
Auch wenn mir nicht ganz klar ist, was das ganze werden soll..
Edit: Noch Beispielcode zum FindComponent:
Delphi-Quellcode:
if (FindComponent('Form1') <> nil) then
ShowMessage('Form1 ist geöffnet');
cu