TCustomTimer

type TCustomTimer = class(TComponent)

protected

  procedure SetEnabled(); virtual;

Sets the Enabled property to True or False

  procedure SetInterval(); virtual;

Sets the Interval property

  procedure SetOnTimer(); virtual;

Sets the OnTimer property

  procedure DoOnTimer; virtual;

DoOnTimer - calls OnTimer event handler

  procedure UpdateTimer; virtual;

Updates the Timer to refleect the current properties

  procedure KillTimer; virtual;

KillTimer - kills the current timer object

  procedure Loaded; override;

public

  constructor Create(); override;

Create - constructor for TCustomTimer: calls inherited Create, sets up handle and initialises timer interval

  destructor Destroy; override;

Destroy: destructor for TCustomTimer: disables and kills timer then calls inherited Destroy

  property Enabled: Boolean; [rw]

Enabled - if True, timer is ready to start

  property Interval: Cardinal; [rw]

The Interval for which the timer is to run

  property OnTimer: TNotifyEvent; [rw]

OnTimer - event handler for timer interval complete (expired)

  property OnStartTimer: TNotifyEvent; [rw]

OnStartTimer - event handler for starting the timer running

  property OnStopTimer: TNotifyEvent; [rw]

OnStopTimer - event handler for stopping the timer

end;

TCustomTimer

TCustomTimer - base class for TTimer

TComponent,IUnknown,IInterfaceComponentReference

TPersistent

TObject