Mudando a Cor do Botão ao passar o mouse

Delphi

10/12/2008

Galeraaa, alguem sabe como mudar a cor do botão quando passar o mouse , poderia ser tbm a cor do label .

Gostaria muito de colocar isso em meu Sistema.

Valeuuu


Cleiflavio

Cleiflavio

Curtidas 0

Respostas

Facc

Facc

10/12/2008

tenta usar os eventos OnMouseOver, ou algo semelhante...

Não estou com delphi no momento, mas acredito que é isso


GOSTEI 0
Cleiflavio

Cleiflavio

10/12/2008

tentei usar esse evento mas não sei como colocar a cor no botão .

Vc teria esse codigo ?


GOSTEI 0
Facc

Facc

10/12/2008

[nomebotao].color := [cor de sua preferencia]


como disse estou sem Delphi aki... acredito que funcione


GOSTEI 0
Cleiflavio

Cleiflavio

10/12/2008

Não está dando certo desse jeito, ta faltando alguma coisa


GOSTEI 0
Cleiflavio

Cleiflavio

10/12/2008

Galera achei um modo de fazer é meio gambiarra mas da certo

Coloque um SpeedButton e apague o Caption dele.
Coloque um Label com o nome do seu botão, no evento OnMauseMove do label coloque o seguinte codigo

Label1.font.color := clBlue; // nesse caso ele está deixando seu label em azul

Nom seu Form no evento OnMouseMove coloque novamente o mesmo codigo mas com a cor preta

Label1.font.color := clBlack;

Tenho que fazer o label a voltar preto pq no evento OnMouseMove ele não volta a cor normal.

Conclusão, Quando vc passar o mouse sobre o label ele ficara Azul e quando voltar o mouse para o form ele voltara a ficar preto.

Epero ter ajudado quem prescisa.


GOSTEI 0
Facc

Facc

10/12/2008

legal que vc conseguiu, mas não consegue alterar o caption do botão?


GOSTEI 0
Cleiflavio

Cleiflavio

10/12/2008

Não consegui fazer mudar o Caption por isso que tive que colocar uma label para sobrepor, é como eu falei é uma gambiarra que da certo, mas se alguem souber como mudar somente o Caption ajudaria e muito tbm.


Vleuu


GOSTEI 0
Paullsoftware

Paullsoftware

10/12/2008

Testado e aprovado com os três botões do delphi
TSpeedButton
TBitBtn
TButton

funcionou perfeito

eventos OnEnter de qualquer um deles, aqui está o do TButton
  Button1.Font.Color := clBlue

Eventos OnLeave
  Button1.Font.Color := clBlack


espero ter ajudado :wink:


GOSTEI 0
Cleiflavio

Cleiflavio

10/12/2008

Cara estou tentando fazer aqui do jeito que vc está falando e estou usando o TBitbtn mas não encontro esse evento OnLeave, vc poderia explicar melhor , por favor.

Obrigado


GOSTEI 0
Facc

Facc

10/12/2008

Cara estou tentando fazer aqui do jeito que vc está falando e estou usando o TBitbtn mas não encontro esse evento OnLeave, vc poderia explicar melhor , por favor. Obrigado



Ele passou código de VB. no Delphi é [b:13cc426366]OnExit[/b:13cc426366]


GOSTEI 0
Cleiflavio

Cleiflavio

10/12/2008

Bom galera, deu certo consegui oq eu queria.

Valeuuuu obrigado por tudo


GOSTEI 0
Marcosrocha

Marcosrocha

10/12/2008

OnMouseEnter e OnMouseLeave foram implementados pela Embarcadero no Delphi 2009


GOSTEI 0
POSTAR