Oi Luis, tudo bom? Qual o nome do componente? Assim consigo localizar mais facilmente. ----- Original Message ----- From: Luiz Escobar To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 29, 2007 5:08 PM Subject: Re: [delphi-br] cor do edit quando em foco
Com o componente fica um pouco mais facil....... Ele tem apenas a cor de entrada voltando a cor de saida é à cor original do componente.... Vc coloca 1 componente no FORM-Principal e pronto... toda a aplicação vai ter a opção ativada... opções do componente: Color := clInfoBk; // cor inicialmente definida e pode ser mudada, é a cor de quando vc entra num EDIT... DisableCustomControl := true; DisableCustomMemo := true; DisableForm := true; Aconselho deixar desabilitado se não vai virar uma baianada.. ehhehe.... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br ----- 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] [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]
