在D5编译过的控件,在D7居然没了那种效果

Question

unit HotLink;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  THotLink = class(TLabel)
  private
    { Private declarations }
    FMouseInControl: Boolean;
    DefaultFontColor:TColor;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;  protected
    { Protected declarations }  public
    { Public declarations }
  published
    { Published declarations }
  end;implementation
procedure THotLink.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  DefaultFontColor:=Font.Color;
  if not FMouseInControl and Enabled  then begin
    FMouseInControl := True;
 //   Font.Color := RGB(255,0,0);  //这句话,在D7我注释掉了,因为变红了就不回来了
    Font.Style :=  [fsUnderline];
    Cursor :=    crHandPoint ;
  end;
end;procedure THotLink.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  if FMouseInControl and Enabled  then begin
    FMouseInControl := False;
//    MouseLeave;
    Font.Color := DefaultFontColor;
    Font.Style := [];
  end;
end;end.

Answer 1

把字体颜色保存起来，在ENTER中改变，然后在LEAVE中把他变回来来啊。这是你代码的问题，不是编译器的问题！
你跟踪一下DefaultFontColor，它肯定被你改变了。

Answer 2

HotLable 还用控件吗？ TLabel 本来就有那个 OnMouseLeave 事件了。