Eigenschaft bei allen Instanzen ändern

Janoschka · Beiträge: 23

Ich erzeuge in meinem Programm MDI - Child Fenster.
halt immer mit TWinxyz.Create([Owner]); (<- is TWinxyz jetzt ne Klasse, oder wie - sorry hab da nicht viel plan von *g*)
Ich möchte jetzt bei allen Childs die Farbe eines Darauf befindlichen memos ändern - bei allen, kann ich das irgendwie ganz einfach machen?

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

Du kannst mit den Eigenschaften der MDIForm (also nicht MDI-Client) MDIChildCount und MDIChildren[] auf die Childs zugreifen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject)
var i: Integer;
begin
  for i := 0 to MDIChildCount - 1 do
    if MDIChildren[i] is TWinxyz then
      TWinxyz(MDIChildren[i]).Memo1.Color := clRed;
end;

_________________
Ist Zeit wirklich Geld?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme