TLThreadedEventer

type TLThreadedEventer = class(TLEventer)

protected

  FWorkThread: array of TLWorkThread;

  FThreadCount: Integer;

  FThreadsCreated: Boolean;

  FTimeout: Integer;

  procedure CreateWorkThreads();

  function GetWorkThread();

  function GetCount; override;

  function GetTimeout; override;

  procedure SetTimeout(); override;

  procedure SetThreadCount();

public

  constructor Create();

  destructor Destroy; override;

  function AddHandle(); override;

  function CallAction; override;

  property WorkThreads []: TLWorkThread; [r]

  property ThreadCount: Integer; [rw]

end;

TLThreadedEventer

TLEventer

TObject