Mudando a Cor do Botão ao passar o mouse
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
Gostaria muito de colocar isso em meu Sistema.
Valeuuu
Cleiflavio
Curtidas 0
Respostas
Facc
10/12/2008
tenta usar os eventos OnMouseOver, ou algo semelhante...
Não estou com delphi no momento, mas acredito que é isso
Não estou com delphi no momento, mas acredito que é isso
GOSTEI 0
Cleiflavio
10/12/2008
tentei usar esse evento mas não sei como colocar a cor no botão .
Vc teria esse codigo ?
Vc teria esse codigo ?
GOSTEI 0
Facc
10/12/2008
[nomebotao].color := [cor de sua preferencia]
como disse estou sem Delphi aki... acredito que funcione
como disse estou sem Delphi aki... acredito que funcione
GOSTEI 0
Cleiflavio
10/12/2008
Não está dando certo desse jeito, ta faltando alguma coisa
GOSTEI 0
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.
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
10/12/2008
legal que vc conseguiu, mas não consegue alterar o caption do botão?
GOSTEI 0
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
Vleuu
GOSTEI 0
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
Eventos OnLeave
espero ter ajudado :wink:
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
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
Obrigado
GOSTEI 0
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
10/12/2008
Bom galera, deu certo consegui oq eu queria.
Valeuuuu obrigado por tudo
Valeuuuu obrigado por tudo
GOSTEI 0
Marcosrocha
10/12/2008
OnMouseEnter e OnMouseLeave foram implementados pela Embarcadero no Delphi 2009
GOSTEI 0