Fórum Efeito visual ao passar o mouse #183427

Caro amigo,

Você terá que interceptar as mensagens cm_mouseenter e cm_mouseleave para ter estes efeitos.
Vai aí um componente de exemplo (ele somente muda a fonte do botão, mas você pode alterar qualquer coisa).

unit SpeedActive;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;

type
TSpeedActive = class(TSpeedButton)
private
{ Private declarations }
protected
{ Protected declarations }
public
procedure MouseEnter(var Msg : TMessage);
Message cm_mouseEnter;
Procedure MouseLeave (Var MSG: TMessage);
Message cm_mouseLeave;
{ Public declarations }
published
end;

procedure Register;

implementation

Procedure TActiveButton.MouseEnter (var MSG : TMessage);
begin
Font.Color := clBlue;
Font.Style := Font.Style + [fsBold];
end;

Procedure TActiveButton.MouseLeave (var MSG : TMessage);
begin
Font.Color := clBlack;
Font.Style := Font.Style - [fsBold];
end;

procedure Register;
begin
RegisterComponents(´Additional´, [TSpeedActive]);
end;

end.


Espero ter ajudado
Barcelos

osbarcelos@hotmail.com

Se não me engano o SpeedButtom já possui esta funcionalidade.