Hola,
es cierto que la propiedad Caption está definida en TControl, sin embargo la propiedad tiene visibilidad
protected con lo cual el código no funcionaría.
Sin embargo es muy sencillo desproteger propiedades, por ejemplo creando una clase heredada de TControl (aprendí este método del amigo roman, del club, aunque supongo que es un clásico
)
Código:
type
TUPControl = class(TControl)
begin
If Componente is TControl then
TUPControl(Componente).Caption:='Texto de caption';
De todos modos el hilo es una continuación de uno que había en los foros viejos. En el mensaje original preguntaba por la propiedad
Text y le dije que no podía utilizar el polimorfismo dado que esa propiedad no existia en ningún ancestro (lo hice después de mirar el help de Delphi). Qué sorpresa la mía hoy al ver que Text también existe en TControl!
Si es que mi capacidad de atención está por los suelos
Un saludo.