Tenho essa função genérica para mudar a cor de fundo dos edits quando recebem o
foco, gostaria de incluir também os combos, mas não está dando certo.... alguém
poderia me ajudar ???
===========================================
var MinhaCor, Cor: TColor;
I: integer;
Vermelho, Verde, Azul: byte;
begin
Vermelho := 255;
Verde := 245;
Azul := 234;
MinhaCor := TColor(RGB(Vermelho, Verde, Azul));
With Screen.ActiveForm do
begin
for I:= 0 to ComponentCount -1 do
begin
if Components[I] is TCustomEdit then
begin
if (Components[I] as TCustomEdit).Focused then
Cor := MinhaCor
else
Cor := clWhite;
AtribuiProp(Components[I], 'Color', IntToStr(Cor));
end;
end;
end;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
