Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Eine Eigenschaft mehrer Editfelder ändern


Frischling - Do 26.09.02 11:18
Titel: Eine Eigenschaft mehrer Editfelder ändern
hihu :)

eines Vorweg... Ich bin Anfänger :)

also ich habe 7 Editfelder mit der eigenschaft Readonly auf true..

und ich möchte bei allen 7 diese Eigenschaft auf false setzen,
jedoch net gerade
7 mal Editx.ReadOnly := False;
schreiben...

das müsste doch möglich sein das zu vereinfachen oder?


LCS - Do 26.09.02 11:24

Hi
man kanns vereinfachen. Wenn deine Editfelder Edit1, Edit2..Edit7 heissen, kannst du das so machen:

Quelltext
1:
2:
3:
   for i := 1 to 7 do
       with FindComponent('edit' + IntToStr(i)) as TEdit do
           ReadOnly := False;


Gruss Lothar


Frischling - Do 26.09.02 11:30

das war ja Turbosuperschnell :o)

Danke werde es gleich ausprobieren :o)