Las propuestas son validas pero si utilizamos el polimorfismo la cosa puede ser tan simple como:
If Componente is TControl then
TControl(Componente).Caption:='Texto de caption';
Dado que la propiedad caption se implementa ya a nivel de TControl por lo que no necesitas ir mas abajo para actuar sobre dicha propiedad. Delphi se encargara de llamar al metodo de escritura (si lo hubiese) adecuado en funcion de la clase real del componente (eso es polimorfismo).
Saludos
|