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;