unit LightLabel;

interface

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

type
  TLightLabel = class(TLabel)
  private
  protected
    procedure CmMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CmMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  public
  published
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TLightLabel]);
end;

{ TLightLabel }

procedure TLightLabel.CMMOUSEENTER(var Msg: TMessage);
begin
  inherited;
  Self.Font.Color := clred;
end;
procedure TLightLabel.CmMouseLeave(var Msg: TMessage);
begin
  inherited;
  Self.Font.Color := clWindowText;
end;

end.