关于类的创建

Question

ThreadServer = class(TThread)
     TCpServer:TIdTCPServer;
     Port:Integer;
     ConnectIpAddress:String[30];
     ConnectComputerName:String[200];
  private
    { Private declarations }
     procedure TCpServerConnect(AThread: TIdPeerThread);
     procedure TCpServerExecute(AThread: TIdPeerThread);
  protected
    procedure Execute;
  published
    //Port:Integer;
    //ConnectIpAddress:String[30];
    //ConnectComputerName:String[200];
  end;
各位大哥，我想在执行该类的父类的create事件的时候执行该类的特有事情。比如
TCpServer：=TIdTCPServer.create(Self)
然后给TCpServer的某些事件赋值。请问我该如何写该类的create事件啊？

Answer 1

还有请问哪里有中文介绍delphi类的资料啊！请各位高手帮忙啊！？

Answer 2

在你的 ThreadServer = class(TThread)类中
的public中
写：
constructor Create(AOwner: TComponent); override;重载它。
constructor ThreadServer .Create(AOwner: TComponent);
begin
  inherited;{执行父类的}
  你的代码。
end;

Answer 3

有<Delphi6组件大全>吧，是类的属性事件的手册。

Answer 4

刘亿的《面向对象编程思想〉，适合入门。
你上面的想法是不能实现的，TCpServer是TheadServer的私有变量，父类没有

Answer 5

也许我没表达清楚。如果 OpenSchema(小熊) 方法能实现。那么就可以了！
我的要求是在创建了类后。该多线程就可以监控网络了。但是在有客户端连接的时候就报错。分析加调试后发现没有FCpServer的OnExecute属性没有赋值。现在就是要对该属性赋值。本人功底不够好。不知道如何赋值给它。试过了各种方法后都没有达到理想的效果。我是想做一个tcp/ip服务器。