Mudando a Cor do Bot�o ao passar o mouse

Question

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...

Facc · Answer

tenta usar os eventos OnMouseOver, ou algo semelhante...N�o estou com delphi no momento, mas acredito que � isso...

Cleiflavio · Answer

tentei usar esse evento mas n�o sei como colocar a cor no bot�o .Vc teria esse codigo ?...

Facc · Answer

[nomebotao].color := [cor de sua preferencia]como disse estou sem Delphi aki... acredito que funcione...

Cleiflavio · Answer

N�o est� dando certo desse jeito, ta faltando alguma coisa...

Cleiflavio · Answer

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.

Facc · Answer

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

Cleiflavio · Answer

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

Paullsoftware · Answer

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:

Cleiflavio · Answer

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...

Facc · Answer

[quote:13cc426366=�cleiflavio�]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[/quote:13cc426366]Ele passou c�digo de VB. no Delphi � [b:13cc426366]OnExit[/b:13cc426366]...

Cleiflavio · Answer

Bom galera, deu certo consegui oq eu queria.Valeuuuu obrigado por tudo...

Marcosrocha · Answer

OnMouseEnter e OnMouseLeave foram implementados pela Embarcadero no Delphi 2009...

F�rum Mudando a Cor do Bot�o ao passar o mouse #366965