Wie mehrere Edits auf Readonly setzen?

[Delbor]

Hi zusammen

Zitat:

Ich hätte als Stichwort FindComponent angegeben

Findcomponent iteriert bei jedem Aufruf durch alle Komponenten des angegeben Containers (hier des Panels) und findet dabei jeweils eine Komponente. Um neun von z.B. 20 Edits Readonly zu stellen, muss Findcomponent neunmal aufgerufen werden und iteriert neunmal durch alle Komponenten. Das sind mindestens 40 Stück, wenn zu jedem Edit ein Label gehört. Und mehr als 40, wenn sich auf dem bewussten Container (dem Panel) noch nicht sichtbare Komponenten (TTimer u.dgl.) befinden.
Besser ist da ein Array of TEdit. Jetzt kann jedes Edit über seine Arrrayposition angesprochen werden.
Die Tag-Eigenschaft eignet sich, um ein Edit über einen Integer anzusprechen(Case TEdit.Tag of).
Und das ultimativste dürfte wohl eine Objectliste sein - die gibt ihre Objekte bei Bedarf selbst frei.

Gruss
Delbor