@Tyrael Y.:Klar, mein Fehler. Würde man nur die Eigenschaft color betrachten, wie könnte man den Code im ersten Beitrag entsprechend Korrigieren? Bin auf der suche nach einer kurzen "eleganten" Lösung. Andererseits, sofern ich einigen Komponenten ein readonly geben möchte, werde ich wohl den längeren Weg gehen müssen.
Ich ging davon aus, dass die Komponenten von TObject abstammen und somit
Delphi-Quellcode:
for i := 0 to Mainform.ComponentCount - 1 do
Begin
if ((Mainform.Components[i] is TEdit)
or (Mainform.Components[i] is TMemo))
and (((Mainform.Components [i]).tag=1)) then
Begin
with (Mainform.Components [i]) as TObject do
readonly:=true;
end;
End;end;
möglich wäre. Funktioniert aber irgendwie auch nicht. Möchte erreichen, dass ich nicht für jedes Objekt eine extra Abfrage laufen lassen muss.
@Bernhard: das muss ich erstmal "sacken" lassen....
MFG
Steffen