TEventLoop

type TEventLoop = class

protected

  procedure CheckResult();

public

  constructor Create;

  destructor Destroy; override;

  function Handle;

  procedure Run;

  procedure Break;

  function AddTimerCallback();

  procedure RemoveTimerCallback();

  function AddTimerNotify();

  procedure RemoveTimerNotify();

  procedure SetIOCallback();

  procedure ClearIOCallback();

  function SetIONotify();

  procedure ClearIONotify();

  procedure SetDataAvailableCallback();

  procedure ClearDataAvailableCallback();

  function SetDataAvailableNotify();

  procedure ClearDataAvailableNotify();

  procedure SetCanWriteCallback();

  procedure ClearCanWriteCallback();

  function SetCanWriteNotify();

  procedure ClearCanWriteNotify();

  class function TimerTicks;

  property IsRunning: Boolean; [rw]

end;

TEventLoop

TObject