Perdonar el retraso he estado de puente.
Tú solución es correcta pero no es la que busco, lo que yo quiero es no tener que hacer un type cast al componente u objeto que que recibo según lo que sea, sino simplemente reciba lo que reciba me sirva para todos los componentes. Con tú solución tendría que hacer comparaciones para saber si lo que recibo es un Tedit, TDBEdit o TDBlookupcombox, etc. Yo busco algo que que me haga el type cast pero sin tener que hacer esas comparaciones, algo que sea mas menos así:
procedure enter(elemento:Tobject;tipo:Classtype);
begin
tipo(elemento).color := clred;
end;
Este es el aspecto de mi solución buscada.
De nuevo gracias a todos por vuestra ayuda.
La grandeza del desierto reside en que siempre esconde un pozo de agua.
__________________
No hay vientos favorables para quién no conoce su rumbo.
|