Delphi 消除 Method 'Create' hides virtual method of base type warming

type
  TFruit = class(TObject)
  public
    constructor Create; overload; virtual; abstract;
    constructor Create(Color: TColor); overload; virtual;
  end;

  TApple = class(TFruit)
  public
    constructor Create(); override;
    constructor Create(Color: TColor); override; 
  end;

type

 TFruit = class(TObject)

 public

   constructor Create(Color: TColor); virtual;

end;

TApple = class(TFruit) 

public

 constructor Create(); reintroduce; overload;

 constructor Create(Color: TColor); overload; override;

end;