如何从一个Thread对象中访问一个自定义的Class的过程函数？

Question

type
  TManager= class
  Private
  Public
    Procedure AddItem(xThread:TThread);
    Procedure DeleteItem(xThread:TThread);
end;
  TSubThread=class(TThread)
  private
    { Private declarations }
  protected
    constructor create;
    destructor destroy; override;
    procedure Execute; override;
  end;constructor TSubThread.create;
begin
  //这里如何访问TManager类中AddItem,难道要TManager类要产生实例后，才能访问吗？
end;

Answer 1

是的。要在TSubThread中添加TManager的数据成员，在Create中实例化以后才能使用。