Mehrere offene MDIChild von der gleichen Form Schließen

[samson]

Hallo,

hab mich etwas verlesen.

Alle MDI-Childs löschen:

Delphi-Quellcode:

var
  i:integer;
  strChild:string;
begin
  //Welche MDI-Childs sollen geschlossen werden
  strChild := self.ActiveMDIChild.ClassName;

  //Schliessen aller MDI-Childs mit diesem Namen
  for i:= self.MDIChildCount-1 downto 0 do
  begin
    if self.MDIChildren[i].ClassName = strChild then
      self.MDIChildren[i].Close;
  end;
end;

Mach das in einem Button ereignis oder so.

Gruss


Samson