TCustomTimer

type TCustomTimer = class(TComponent)

protected

  procedure SetEnabled(); virtual;

Sets the value for the Enabled property.

  procedure SetInterval(); virtual;

Sets the value for the Interval property.

  procedure SetOnTimer(); virtual;

Sets the event handler for the OnTimer property.

  procedure DoOnTimer; virtual;

DoOnTimer signals the OnTimer event handler.

  procedure UpdateTimer; virtual;

Updates the Timer to reflect the current properties.

  procedure KillTimer; virtual;

Stops execution of the timer class instance.

  procedure Loaded; override;

Performs actions needed when LCL component streaming has been completed.

public

  constructor Create(); override;

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

  destructor Destroy; override;

Destructor for the timer class instance.

  property Enabled: Boolean; [rw]

Indicates if the timer is ready to start.

  property Interval: Cardinal; [rw]

The Interval (in milliseconds) for timer notifications.

  property OnTimer: TNotifyEvent; [rw]

Event handler signalled when the Interval for the timer has elapsed.

  property OnStartTimer: TNotifyEvent; [rw]

Event handler signalled when the timer is started.

  property OnStopTimer: TNotifyEvent; [rw]

OnStopTimer - event handler for stopping the timer.

end;

TCustomTimer

Defines the base class for TTimer.

TComponent,IUnknown,IInterfaceComponentReference

TPersistent,IFPObserved

TObject

TCustomTimer.Enabled

Indicates if the timer is ready to start.

TCustomTimer.Interval

The Interval (in milliseconds) for timer notifications.

TCustomTimer.OnTimer

Event handler signalled when the Interval for the timer has elapsed.

TCustomTimer.OnStartTimer

Event handler signalled when the timer is started.

TCustomTimer.OnStopTimer

OnStopTimer - event handler for stopping the timer.

TTimer

TTimer is an elapsed timer useful in many applications.