Evento do mouse sobre o componente
24/04/2013
0
Jefferson Oliveira
Posts
24/04/2013
Rafael Mota
Para aumentar o tamanho no evento OnMouseMov do botão você coloca:
SpeedButton1.Height := 40;
Para voltar ao tomanho normal, no evento OnMouseMov do Form você coloca:
SpeedButton1.Height := 22;
24/04/2013
Joel Rodrigues
Aí utilizaria o que o amigo acima disse:
procedure TFormMain.SpeedButton1MouseEnter(Sender: TObject); begin (Sender as TSpeedButton).Height := 40; (Sender as TSpeedButton).Width := 40; end;
e
procedure TFormMain.SpeedButton1MouseLeave(Sender: TObject); begin (Sender as TSpeedButton).Height := 22; (Sender as TSpeedButton).Width := 22; end;
24/04/2013
Joel Rodrigues
procedure TFormMain.SpeedButton1MouseEnter(Sender: TObject); begin (Sender as TSpeedButton).Height := 40; (Sender as TSpeedButton).Width := 40; (Sender as TSpeedButton).Left := (Sender as TSpeedButton).Left - 9; (Sender as TSpeedButton).Top := (Sender as TSpeedButton).Left - 9; end;
e
procedure TFormMain.SpeedButton1MouseLeave(Sender: TObject); begin (Sender as TSpeedButton).Height := 22; (Sender as TSpeedButton).Width := 22; (Sender as TSpeedButton).Left := (Sender as TSpeedButton).Left + 9; (Sender as TSpeedButton).Top := (Sender as TSpeedButton).Left + 9; end;
Aí eu considerei que o tamanho original é 22x22 e você está aumentando para 40x40. Então há uma diferença de 18x18. Sendo assim, deslocamos o botão para a esquerda e para cima em 9px (metade da variação).
24/04/2013
Joel Rodrigues
Boa sorte e qualquer coisa, é só falar.
24/04/2013
Rafael Mota
Mas,eu acho que no Delphi 7 o speedbutton ainda não possui os eventos OnMouseEnter e OnMouseLeave.
24/04/2013
Joel Rodrigues
Que bobeira minha.
Faz tanto tempo que não vejo o D7 que às vezes me esqueço desses detalhes.
Obrigado por lembrar.
Abraço.
Clique aqui para fazer login e interagir na Comunidade :)