TLEventer

type TLEventer = class

protected

  FRoot: TLHandle;

  FCount: Integer;

  FOnError: TLEventerErrorEvent;

  FReferences: Integer;

  FFreeRoot: TLHandle;

  FFreeIter: TLHandle;

  FInLoop: Boolean;

  function GetCount; virtual;

  function GetTimeout; virtual;

  procedure SetTimeout(); virtual;

  function Bail();

  procedure AddForFree();

  procedure FreeHandles;

  procedure HandleIgnoreError(); virtual;

  procedure HandleIgnoreWrite(); virtual;

  procedure HandleIgnoreRead(); virtual;

  function GetInternalData();

  procedure SetInternalData();

  procedure SetHandleEventer();

  procedure InternalUnplugHandle(); virtual;

public

  constructor Create; virtual;

  destructor Destroy; override;

  function AddHandle(); virtual;

  function CallAction; virtual;

  procedure RemoveHandle(); virtual;

  procedure UnplugHandle();

  procedure UnregisterHandle(); virtual;

  procedure LoadFromEventer(); virtual;

  procedure Clear;

  procedure AddRef;

  procedure DeleteRef;

  property Timeout: Integer; [rw]

  property OnError: TLEventerErrorEvent; [rw]

  property Count: Integer; [r]

end;

TLEventer

TObject