Parent oder Nicht Parent

[chrisw]

Ich denke so in etwa (ungetestet)!

Delphi-Quellcode:

var i : Integer;
begin
  for i := 0 to frmMain.ComponentCount -1 do
    if (frmMain.Components[i] is TForm) 
        and ((frmMain.Components[i] as TForm).Parent = pnlMainModul)) then        
           TForm(frmMain.Components[i]).Close;
end;

Besser wäre es aber eine Klasse von TPanel abzuleiten, die eine Property ClientForm hat !