uthreadcomlist.pas

来自「智能交通系统演示」· PAS 代码 · 共 31 行

unit uThreadComList;

interface
uses Classes;

type
  TThreadComList = class(TThreadList)
  private
  protected
  public
    procedure Add(Item: TComponent);
    procedure Remove(Item: TComponent);
  end;

implementation

procedure TThreadComList.Add(Item: TComponent);
begin
  inherited Add(Pointer(Item));
end;

procedure TThreadComList.Remove(Item: TComponent);
begin
  inherited Remove(Pointer(Item));
end;




end.