delphi - 当类有重载构造函数时，如何隐藏继承的 TObject 构造函数？

Question

看看这个类:

TTest = class(TObject)  
public  
  constructor Create(A:Integer);overload;  
  constructor Create(A,B:Integer);overload;  
end;

现在当我们想要使用该类时:

var  
  test:  TTest;  
begin  
  test:= TTest.Create; //this constructor is still visible and usable!  
end;

谁能帮我隐藏这个构造函数？

Answer 1

只要您重载了名为 Create 的构造函数，就无法在从 TObject 派生时隐藏无参数 TObject 构造函数。

此处讨论:http://www.yanniel.info/2011/08/hide-tobject-create-constructor-delphi.html

如果您准备在您的类和 TObject 之间放置另一个类，您可以使用 Andy Hausladen's trick :

TNoParameterlessContructorObject = class(TObject)
strict private
  constructor Create;
end;

TTest = class(TNoParameterlessContructorObject)
public
  constructor Create(A:Integer);overload;  
  constructor Create(A,B:Integer);overload;  
end;