Oi Erivando... A procedure que você me passou deu certinho. Era bem isso mesmo que eu queria.
Valeu ----- Original Message ----- From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 29, 2007 4:00 PM Subject: Re: [delphi-br] cor do edit quando em foco faz assim: coloca em seu codigo: .... procedure entraCor(Sender: TObject); procedure saiCor(Sender: TObject); .... procedure TFrmCarnePag.entraCor(Sender: TObject); begin if (Sender is TEdit) then (Sender as TEdit).Color := RGB(255,255,230) else if (Sender is TComboBox) then (Sender as TComboBox).Color := RGB(255,255,230) else if (Sender is TMemo) then (Sender as TMemo).Color := RGB(255,255,230) else if (Sender is TMaskEdit) then (Sender as TMaskEdit).Color := RGB(255,255,230) end; procedure TFrmCarnePag.saiCor(Sender: TObject); begin if (Sender is TEdit) then (Sender as TEdit).Color := RGB(255,255,255) else if (Sender is TComboBox) then (Sender as TComboBox).Color := RGB(255,255,255) else if (Sender is TMemo) then (Sender as TMemo).Color := RGB(255,255,255) else if (Sender is TMaskEdit) then (Sender as TMaskEdit).Color := RGB(255,255,255) end; depois na propriedade Events em OnEnter = entraCor e OnExit = SaiCor Obs: vc pode usar a cor que lhe agradar trocando o RGB(255,255,230) Espero ter lhe ajudado Erivando Sena msn: [EMAIL PROTECTED] INFORAMOS - Soluções em Sistemas www.inforamos.com ----- Original Message ----- From: Cleiton To: Delhpi Sent: Thursday, March 29, 2007 2:38 PM Subject: [delphi-br] cor do edit quando em foco Pessoal... Como faço para deixar o campo Edit ou DBedit quando o mesmo estiver em foco? -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.22/739 - Release Date: 29/3/2007 13:36 -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas]
