Wie mehrere Edits auf Readonly setzen?

[v2afrank]

Ich hätte als Stichwort FindComponent angegeben

[himitsu]

Hat Lazarus auch einen Components-Enumerator an TComponent?

Delphi-Quellcode:

for C in Self do
  if C is TEdit then
    ...

PS: FindComponent ist für ein Control, dessen Namen man kennt. (gut, man könnte die Namen z.B. in einem Array/Liste speichern und Diese dann durch gehen)

[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