( ゚Д゚)ノ Delギコ猫のプログラミング相談室part2
>自分自身のクラスインスタンスを保持する方法
とっくに解決済みかも知れませんが、少々気になったので。
type
TArxForm1 = class(TForm)
private
FMyClassList: TList;
published
property List: TList read FMyClassList; // 読み込み専用
end;
implementation
constructor TMyClass.Create(AOwner: TComponent);
begin
inherited;
FMyClassList.Add(Self);
end;
destructor TMyClass.Destroy;
begin
FMyClassList.Extract(Self);
inherited;
end;
end.