Mudar a cor dos componentes

Delphi

06/03/2014

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

Curtidas 0

Respostas

Marcos Saffran

Marcos Saffran

06/03/2014

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.
GOSTEI 0
Fabianoluizdb

Fabianoluizdb

06/03/2014

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 ?
GOSTEI 0
Luiz

Luiz

06/03/2014

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
GOSTEI 0
Douglas

Douglas

06/03/2014

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

Fabianoluizdb

06/03/2014

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

Luiz

06/03/2014

Legal parceiro!

Boa sorte ai!

Abraços
GOSTEI 0
POSTAR