Fórum omo simular os eventos ONMOUSEENTER e ONMOUSELEAVE ? #204377

Olá amigo,

Você terá que criar componentes que descendam dos que você quer usar e adicionar estas funcionalidades.

Segue um exemplo bem básico (somente muda a fonte) de um componente herdado de TSpeedButton que adiciona estas funcionalidades:


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
//Captura as mensagens cm_mouseenter
//e cm_mouseleave
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