Hi,
<br>
<br>ich möchte in einer Schleife auf alle Componenten eines Formulares zugreifen, und wenn diese die Eigenschaft ReadOnly besitzen, so soll dieser Wert auf true gesetzt werden.
<br>So in etwa stelle ich mir das vor (es folgt pseudo Code):
<pre>
For i := 0 to frm.ControlCount - 1 do
For z := 0 to frm.Controls[i].PropertysCount - 1 do
If frm.Controls[i].Property[z].Name = 'ReadOnly' Then
frm.Controls[i].Property[z].Value := True;
</pre>
<br>Ich habe nichts gefunden, das die Funktionalität von PropertysCount und Property abbildet. An den Haaren herbei gezogen ist diese Vorgehensweise nicht, ich bin mir ziemlich sicher so etwas schon mal in Basic gemacht zu haben.
<br>
<br>Ich hoffe jemand kann mir weiter helfen. Sonst müßte ich wohl jedes Control im Code von Hand auf RaedOnly setzten (viel Arbeit).
<br>
<br>Danke!
<br>
<br>mfg
<br>PS
<br>
<br>ich möchte in einer Schleife auf alle Componenten eines Formulares zugreifen, und wenn diese die Eigenschaft ReadOnly besitzen, so soll dieser Wert auf true gesetzt werden.
<br>So in etwa stelle ich mir das vor (es folgt pseudo Code):
<pre>
For i := 0 to frm.ControlCount - 1 do
For z := 0 to frm.Controls[i].PropertysCount - 1 do
If frm.Controls[i].Property[z].Name = 'ReadOnly' Then
frm.Controls[i].Property[z].Value := True;
</pre>
<br>Ich habe nichts gefunden, das die Funktionalität von PropertysCount und Property abbildet. An den Haaren herbei gezogen ist diese Vorgehensweise nicht, ich bin mir ziemlich sicher so etwas schon mal in Basic gemacht zu haben.
<br>
<br>Ich hoffe jemand kann mir weiter helfen. Sonst müßte ich wohl jedes Control im Code von Hand auf RaedOnly setzten (viel Arbeit).
<br>
<br>Danke!
<br>
<br>mfg
<br>PS
Comment