Typecast für MDI Childs ?

[moelski]

Moin !

Ich habe da folgende Situation ... Habe da x MDI Fenster:
TForm_MDI1, TForm_MDI2, ....

In diesen Forms gibt es ein Flag das ich gerne setzen würde beim Schließen aller MDI Childs.
Das Flag kann ich nun so addressieren:
TForm_MDI1(MainForm.MDIChildren[I]).Flag := True; Aber wenn ich das auf alle offenen MDI Fenster anwenden will dann klappt das nicht. Ich müsste wenigstens den ClassenNamen überprüfen ala:
MainForm.MDIChildren[I].ClassName = 'TChild_Memo' ..

Und dann müsste ich auch für jedes Fenster einen eigenen Cast bauen. Das ist irgendwie unschön.

Kriegt man das universeller hin? Wie gesagt, Ziel isses in allen offenen MDI Fenstern ein Flag zu setzen und das bei verschiedenen MDI Fenster Klassen.

Grundlegend also so:

Delphi-Quellcode:

  for I := 0 to MainForm.MDIChildCount - 1 do begin
    Universalcast(MainForm.MDIChildren[I]).Flag := True;
  end;