Esta no DELPHI-BR THINT and TFOCUSCOLOR.zip Aqui tem dois componentes, THINT para mudar as configurações de tempo e cor dos HINT´s da aplicação e o TFOCUSCOLOR foi melhorado mas pode melhorar mais... agora voce pode escolher se quer que a cor do FORM/(DBGRID-DBLookUpComboBox-outros do mesmo CustomControl)/MEMO, sejam alterados ou não, por padrão, EDIT/DBEDIT/LISTBOX/CHECKBOX ainda são alterados pela cor selecionada como cor-ativa.
link download: http://f1.grp.yahoofs.com/v1/EEINRpIbR8fyCBn4njDvPAZJqjcwns-TN97UjB445g6M6jWzRkWsYQkI_TEy5sAYg8Q_G5vYVWxOA7mqW8K-tHrewY_HYy1L-A/Componentes%20com%20fontes/THINT%20and%20TFOCUSCOLOR.zip 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: Cleiton To: delphi-br@yahoogrupos.com.br Sent: Friday, March 30, 2007 12:56 PM Subject: [delphi-br] Re: cor do edit quando em foco 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] [As partes desta mensagem que não continham texto foram removidas]