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;

[himitsu]

if MainForm.MDIChildren[I] is TChild_Memo then object is type = prüfen
object as type = umwandeln mit prüfen (bei Fehler Exception)
type(oject) = hartes umwandeln ohne prüfen




universeller ... ja

TForm_MDI1, TForm_MDI2 usw. müssen dann einfach von einem Basistypen abgeleitet sein, dann haben alle dessen Eigegenschaften und du kannst auf diese universell zugreifen.

[moelski]

Moin !

Zitat:

TForm_MDI1, TForm_MDI2 usw. müssen dann einfach von einem Basistypen abgeleitet sein, dann haben alle dessen Eigegenschaften und du kannst auf diese universell zugreifen.

Das habe ich fast befürchtet

Nuja, danke jedenfalls für die Hinweise.

[generic]

Wenn du nicht ableiten willst, kannst du an jeder Form ein Interface implementieren.