Fórum Mudar a cor dos componentes #472104

06/03/2014

0

Delphi

Bom dia Pessoal,

Preciso de um help, quero deixar o sistema mais interessante para o usuário e facilitar para ele não errar o campo que esta digitando, pesquisei na internet vários links e o que mais deu certo para o que quero foi esse abaixo, só que ele tem um problema, quando clico em um botão o componente que esta com a cor diferente por causa do foco continua pintado, olhei mas não consegui resolver, será que alguém pode dar uma olhada e me ajudar ?

Obrigado.

http://www.planetadelphi.com.br/dica/7328/-como-mudar-a-cor-de-componentes-ao-receber-o-foco-
Fabianoluizdb

Fabianoluizdb

Responder

Posts

06/03/2014

Marcos Saffran

Olá, qual é o tipo do seu botão?
Se não me engano o speedbutton não recebe foco, mantendo o foco no componente anterior.
Responder

Gostei + 0

06/03/2014

Fabianoluizdb

Obrigado Marcos pelo retorno, cara eu tenho no meu form TBitBtn, fiz um teste aqui coloquei TButton mas também não deu certo, será que tem como fazer de outra maneira ? Alguém ?
Responder

Gostei + 0

06/03/2014

Luiz

Pelo que vi no código que você mandou, tente implementar a parte que lhe mando abaixo:


  mDesativado:= clBtnFace; // cor para quando o componente estiver desativado ou campos somente leitura...
  mSemFoco:= clWindow;     // cor para quando o componente estiver sem Foco
  mComFoco:= clYellow;     // cor para quando o componente estiver Com Foco

// >>>>>>>>>>>>>>>>>>>>> tente colocar esse código
 if (ActiveControl is TButton) or (ActiveControl is TBitBtn)  then
 begin
   if TDBEdit(mComponAnt).Color <> mDesativado then TDBEdit(mComponAnt).Color:= mSemFoco; // cor sem foco
 end;
//<<<<<<<<<<<<<<<<<<<<<<
  
  //aqui continua o codigo ...
if TDBEdit(ActiveControl).Color <> mDesativado then
Responder

Gostei + 0

06/03/2014

Douglas

Amigo, ver se o artigo abaixo te ajuda.
https://www.devmedia.com.br/mudando-cores-onenter-e-onexit-delphi/23872
Responder

Gostei + 0

07/03/2014

Fabianoluizdb

Obrigado pelo retorno pessoal, valeu pelo link Douglas mas a sugestão do Luiz Coelho resolveu o problema, obrigado pessoal
Responder

Gostei + 0

07/03/2014

Luiz

Legal parceiro!

Boa sorte ai!

Abraços
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar