uthreadcomlist.pas

智能交通系统演示delphi源码,适合初学者看的例子

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.