Coutinho Acho que isso ajuda a dar uma luz.... Tirei do Site
activedelphi Direitos de RodrigoMiller .... Wesley
Acrescente ao Uses a unit Typinfo;
Declare as Variáveis na seção Private:
Componente: Tcomponent;
CorComp: TColor;
Faça a seguinte procedure:
//Procedure que Muda a cor dos componentes focados
procedure TForm1.MudaCor(Sender: TObject);
begin
if Assigned(Componente) then
TEdit(Componente).Color := CorComp; //cor original do componente
if (ActiveControl <> nil) and (IsPublishedProp(ActiveControl, 'Color')) then
begin
CorComp := TEdit(ActiveControl).Color;
TEdit(ActiveControl).Color := $00C2F9FC; // cor com foco
Componente := ActiveControl;
end;
end;
No Evento onActivate do form:
Screen.OnActiveControlChange := MudaCor;
E no Evento onDestroy:
Screen.OnActiveControlChange := nil;
From: Coutinho - Yahoo
Sent: Wednesday, January 21, 2009 12:07 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] ClasseType, TClass etc...
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
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3785 (20090121) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
