Fórum Novo Componente - Fonte Aqui !!! #237989

Caros amigos, estou desenvolvendo no Delphi 6 um novo componente Label, chamado ULabel, igual à classe anterior só que nos eventos OnMouseEnter (passar o mouse por cima) e OnMouseLeave(tirar o mouse de cima) a gente muda a cor do texto, dando um ótimo efeito. Compilo e instalo o componente, mas no hora de utilizar ele dá erro de vialoção de acesso. Alguém se habilita a me ajudar ? Segue o Fonte. Obrigado.

[b:620ff3192b]unit QULabel;

interface

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

type
TULabel = class(TLabel)
private
{ Private declarations }
FColor1 : TColor;
FColor2 : TColor;
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner : TComponent); override;
procedure MouseEnter (var Msg: TMessage);
message cm_mouseEnter;
procedure MouseLeave (var Msg: TMessage);
message cm_mouseLeave;
published
{ Published declarations }
end;

procedure Register;

implementation

constructor TULabel.Create(AOwner : TComponent);
begin
Fcolor1 := Font.Color;
Fcolor2 := clHighlightText;
end;

procedure TULabel.MouseEnter(var Msg: TMessage);
begin
Font.Color := Fcolor2;
end;

procedure TULabel.MouseLeave(var Msg: TMessage);
begin
Font.Color := Fcolor1;
end;

procedure Register;
begin
RegisterComponents(´Standard´, [TULabel]);
end;

end.[/b:620ff3192b]