Ponha no Private
procedure CMFocusChanged(var Msg: TCMFocusChanged); message
CM_FocusChanged;
No implementation:
procedure TForm1.CMFocusChanged(var Msg: TCMFocusChanged);
begin
try
if LastFocus is TDBEdit then
begin
if LastFocus <> nil then
begin
TDBEdit(LastFocus).Color := clWindow;
TDBEdit(LastFocus).Font.Color := clWindowText;
end;
end;
except
end;
if Msg.Sender is TDBEdit then
begin
LastFocus := Msg.Sender;
TDBEdit(Msg.Sender).Color := clHighlight;
TDBEdit(Msg.Sender).Font.Color := clHighlightText;
end;
end;
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de aoliveira_sys
Enviada em: sábado, 29 de julho de 2006 17:12
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Cor quando receber focus
Alguem tem alguma rotina que quando o TEdit ou TComboBox receber o
foco mudar de cor. Por exemplo, a cor do TEdit é branco quando o TEdit
receber o foco mudar para a cor amarelo. Precisa ser uma rotina pois
fazer em cada TEdit vai dar trabalho..rs
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.5/403 - Release Date: 28/7/2006
[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]
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
