自己写类，将构造放在 私有区

To wjlsmail(计算机质子) ：

好像不行喔， 虽然能防止访问私有曲内的构造器，但依然能直接直接访问父类中非私有的构造器！

Unit2中定义一个类

  TA = class(TObject)
  private
    FStr : string;
    constructor Creat; overload;
  ...

在Unit1中依然能这样调用：
  la := TA.Create;

type
  TThreadOfPick = class(TThread)
  private
    { Private declarations }
    TheUser: String;
    ThePwd: String;

  protected
    procedure Execute; override;
  public
    constructor Create(UStr, PStr : String); // 重写一下 
  end;
  

    with TThreadOfPick.Create(NameStr,PwdStr) do
    //这时可以 Create ；

      begin
        if Suspended then Resume;
      end;


------------------------------------------------

type
  TThreadOfPick = class(TThread)
  private
    { Private declarations }
    TheUser: String;
    ThePwd: String;
    constructor Create(UStr, PStr : String);  
 
  protected
    procedure Execute; override;
  end;
  

    with TThreadOfPick.Create(NameStr,PwdStr) do
    // 这时只能继承 TThread.Create ；重写一下构造，放在Private中    // 应该可以达到需要的效果
      begin
        if Suspended then Resume;
      end;

To wjlsmail(计算机质子) ：

你这种写法是可以防止调用子类定义的constructor Create(UStr, PStr : String);  但无法防止访问TThread及其父类中非私有的构造器， 例如TObjecy中的constructor Create，虽然返回并非该子类的实例，但也存在危险的可能， 我的意思是能否有办法防止所有的构造器被访问（包括所有的父类的）。

重写一些构造应该能达到目的，但如你所说的"防止所有的构造器被访问（包括所有的父类的）。" 未必能实现 


Study  

外界无法访问构造函数，怎么创建？
什么意思？
要达到什么目的呢？
不明白

要求构造器被保护，外界不能访问！
要创建类的实例，外界必须使用构造器！
                      ————悖论乎？

不太明白搂主的意思。

这个类能够实例化吗？还不如用接口。

看这里：http://www.csdn.net/develop/read_article.asp?id=15077

构造函数是类方法，它不依赖对象的存在而存在。
除非是你自己overload的构造函数，否则应该都是可以访问的。

谢谢 largewang(老王)， 同时感谢各位。

终于在《Delphi技术手册》中找到了问题的答案， 在Delphi Pascal中的确没有办法把所有（包括父类）的构造器屏蔽掉， 只能变相在构造器中产生一个异常来达到相同的目的。代码的大体结构如下：

  TCanNotCreat ＝ class
  private
    constructor Create(AOwner : TObject); overload;
  public
    constructor Create; reintroduce; overload; 
    //覆盖掉TObject中的Create， 产生一个异常来让使用者“明白”原因
  end;


constructor TA.Create;
begin
  raise Exception.Create('Can not Create it direct.');
end;