Obtener la clase de objetos

[__marcsc]

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 )

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.