Ein MDI-Child aus einem anderen MDI-Child heraus schließen?

[NetSonic]

Guten Morgen!

Folgendes Problem und ich habe zur Zeit keine Idee, wie ich es realisieren könnte.
Meine Anwendung besteht aus einem MDI-Form und mehreren MDI-Childs. Ich habe nun das MDI-Child mit dem .Name := frmLageplan geöffnet und möchte dieses jetzt von dem MDI-Child mit dem .Name := frmDatenbestand aus schließen. Im OnClose von frmLageplan befindet sich die Anweisung

Delphi-Quellcode:

Action := caFree;

aber wie rufe ich dieses OnClose jetzt auf?

Die MDI-Childs erstelle ich so:

Delphi-Quellcode:

TfrmLageplan.Create(Application);
Close;

[Cappuccino]

Ich würde das Hauptfenster bemühen und dort die Liste der Mdi-Children nach dem Formularnamen durchsuchen

etwa..
for I := MDIChildCount-1 downto 0 do
MDIChildren[I].Name
oder MDIChildren[I].Caption
um den Fensternamen zu finden

Gruß
Tom

[NetSonic]

Danke für den Lösungsansatz. Habe mir jetzt eine Procedure gebastelt, die mir die Arbeit abnimmt.

Delphi-Quellcode:

procedure TfrmMain.CloseMDIChild(strChildName: String);
var
  i: Integer;
begin
     for i := 0 to frmMain.MDIChildCount - 1 do
     begin
          if (frmMain.MDIChildren[i].Name = strChildName) then
          begin
               frmMain.MDIChildren[i].Close;
               break;
          end;
     end;
end;