Componentcount
Hola buenas
Estoy intentando modificar todos los Tedit que tengo metidos en un Tpanel usando la propiedad componentcount del Tpanel, pero la cosa no funciona.
En concreto quiero hacer esto:
FOR I:=0 TO panel1.ComponentCount-1
DO BEGIN
IF (panel1.COMPONENTS[i] IS TEDIT)
THEN BEGIN
TD:=panel1.COMPONENTS[i] AS TEDIT;
TD.readonly := True;
TD.Color := clsilver;
END;
end;
end;
Pero... no funciona. Componentcount vale 0. Alguien sabe qué es lo que hago mal?
Saludos y gracias
Hogol
|