MDI Anwendung: Auflistung der Children in einer Listbox

[Alexander]

Hi Sebastian
vielen Dank für dein Posting. Ich verstehe gerade nicht, wofür dein Quelltext ist .

Aber tatsächlich ist owner wirklich nil, wieso verlässt man sich darauf, dass das automatisch gefüllt wurde. Und selber setzen kann ich es aus irgendeinem Grund auch nicht. Aber mir bleibt ja noch MDIParent, das auf das Hauptfenster verweist. Das habe ich jetzt auch genommen. Statt:

Delphi-Quellcode:

  TMainFrm(owner).ChildClose(Self.text, Self.path);
nehme ich jetzt einfach
  TMainFrm(MdiParent).ChildClose(Self.text, Self.path);

Das funktioniert

[Khabarakh]

Der Quelltext ist ein vollwertiger, performanterer und eleganterer - das wolltest du doch - Ersatz für

Delphi-Quellcode:

for i:=0 to Length(Self.MdiChildren)-1 do
    if (Self.MdiChildren[i] is TMDIChild) then
    begin
      if (TMDIChild(Self.MdiChildren[i]).Text = LB_Dok.SelectedItem.ToString) then
      begin
        TMDIChild(Self.MdiChildren[i]).BringToFront;
        break;
      end;
    end;

...

procedure TMainFrm.ChildClose(t, p : String);
var
  i : Integer;
begin
  // Child aus Listbox entfernen
  for i:=0 to LView_Dok.Items.Count -1 do
    if (LView_Dok.Items.Item[i].Text.Equals(t) and LView_Dok.Items.Item[i].Tag.Equals(p)) then
    begin
      LView_Dok.Items.RemoveAt(i);
      break;
    end;
end;

Schon allein die Kürze des Codes sollte überzeugen .