有没有办法知道在类助手中是否正在创建或销毁对象？

Question

我有很少的类助手用于创建子组件,如弹出菜单,以便在运行时访问这些子组件,我创建了一个Singleton TDictionary.

我的问题是如何知道所有者组件被销毁以从TDictionary中删除子组件？

如果它是一个专门的组件,我将它添加到析构函数中,但我不能在类助手中添加构造函数和/或析构函数.

编辑 - 解决方案

我创建了一个接受TObject作为参数的基础对象,使用时,必须手动完成删除操作.

然后我从它继承了一个新类,重写方法只接受TComponent.这就是现在代码的相关部分:

type     
  TCustomLinkedComponents = class(TCustomLinkedObjects)
  strict private
    type
      TCollector = class(TComponent)
      protected
        procedure Notification(AComponent: TComponent; Operation: TOperation); override;
      end;
  strict private
    FCollector: TCollector;
[..]
  end;

procedure TCustomLinkedComponents.Add(Owner: TComponent; const LinkedName: string; LinkedComponent: TComponent);
begin
  inherited Add(Owner, LinkedName, LinkedComponent);
  FCollector.FreeNotification(LinkedComponent);
end;

procedure TCustomLinkedComponents.TCollector.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;
  if Operation = opRemove then
    LinkedObjects.Remove(TObject(AComponent));
end;

使用这种方法,我可以解决我的实际需要,并打开后可以轻松扩展.

Answer 1

而不是a TDictionary,创建一个TComponent包含a 的自定义后代TDictionary.然后看看它是如何TComponent.FreeNotification工作的,解决方案应该变得明显.:)