La mayoría de controles en Delphi reciben los mensajes CM_MOUSEENTER y CM_MOUSELEAVE cuando el cursor del ratón entra o sale del control.
Desafortunadamente sólo el TLabel (que yo sepa) implementa los correspondientes eventos OnMouseEnter y OnMouseLeave.
Así que, para poder utilizar los mensajes mencionados en controles como el SpeedButton tienes que crear un control descendiente que implemente los eventos:
Código Delphi
[-]
unit MySpeedButton;
interface
uses
Messages, Classes, Controls, Buttons;
type
TMySpeedButton = class(TButton)
private
FOnMouseEnter: TNotifyEvent;
FOnMouseLeave: TNotifyEvent;
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
published
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TMySpeedButton]);
end;
procedure TMySpeedButton.CMMouseEnter(var Msg: TMessage);
begin
if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;
procedure TMySpeedButton.CMMouseLeave(var Msg: TMessage);
begin
if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;
end.
Como ves, CMMouseEnter y CMMouseLeave son manejadores de los mensajes CM_MOUSEENTER y CM_MOUSELEAVE que simplemente llaman a los eventos OnMouseEnter y OnMouseLeave(siempre y cuando se hayan asignado durante el diseño).
Cuando insertes un TMySpeedButton, usas estos eventos para hacer cualquier cosa que desees cuando el ratón entre o salga.
EDITO:
Viendo la respuesta de
maeyanes me percato de que es más correcto lo que él dice. Como nunca uso los temas de XP no lo había notado. Mi solución podría servirte en caso de que no quieras depender de los temas de XP.
// Saludos