Wie kann man das denn gut handhaben beliebig viele Instanzen zu erzeugen?
Etwa mit dynamischen Arrays?
Und außerdem muss ich ja trotzdem noch wissen, was die
aktive MDIChildForm ist.
Irgendwie kann ich in der Prozedur von meinem Objekt nicht mit ActiveMDIChild arbeiten.
Muss man da irgendwas ins Objekt einbinden?
Komischerweise ist ActiveMDIChild <> nil, wenn ich die Form vom Hauptformular erzeuge.
Bei einer anderen Form ist ActiveMDIChild = nil .
Aufruf vom Hauptformular
Delphi-Quellcode:
TBildfenster1.Create(self);//Das ist das MDIChild
if ActiveMDICHild<>nil then
Bildspeicher.Intialisieren(emNormalOeffnen);//Das ist das genannte Objekt
//und die Prozedur in der ich Werte des
//MDIChilds abfrage bzw. setze.
Aufruf von anderem Formular (fsStayOnTop)
Delphi-Quellcode:
TBildfenster1.Create(self);//Bei OnCreate wird Bildspeicher(Objekt) erzeugt
if ActiveMDIChild<>nil then
begin
Bildspeicher.Breite:= StrToInt(Breite_Edt.Text);//Objekt wurde schon erzeugt
Bildspeicher.Hoehe:= StrToInt(Hoehe_Edt.Text);
Bildspeicher.Intialisieren(emNeu);
FuellFarbe:=FarbBox_Pnl.Color;//Beides hier
BildNummer:=BildNummer+1; //nicht beachten
end;