Boa tarde Emanuel, como vai?
Acho que no teu caso é melhor usar TWinControl, já que a rotina é generica.
[]'s
Ricardo
_________________________________________________________________
"Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"
--- Em qua, 21/1/09, Coutinho - Yahoo <emanuelcouti...@yahoo.com.br> escreveu:
Pessoal
Tava pensando em fazer uma procedure, que alterasse a cor de entrada e
uma para alterar a cor de saída de meus componentes de tela... tipo..
enrou no componente, fica com uma cor, saiu, retorna a cor anterior...
Estou tentando criar uma procedure que possa ser usada por qualquer
componente, mas estou esbarrando no TClass
Normalmente, se fosse fazer no evento onEnter, e On Exit, usaria:
No caso de um dbEdit usaria:
(Sender as TdbEdit).color := clInfoBk
Aí, estou tentando substituir o TdbEdit por uma variável, que receba a
classe... mas estou esquecendo de algum pormenor, ou fazendo uma coisa
muito errada...
Alguém pode me dar uma ajuda?
Sds
--
____________ _________ _________ ____
Emanuel Coutinho
Salvador-Ba- Brasil
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
