CHMlib Logo Leading Translation Management System for Translation Agencies, Top Translation Management Software for Freelance Translators, Time Tracking Software, Word Count, Character Count and Line Count Software, Computer Assisted Translation Tool for Easy Word Count, Clipboard Character Count Software, User-Friendly Translation Memory Software, Terminology Management Software, Terminology Management Server, Microsoft Glossary Software, Dictionary of Acronyms, Social Network for Translators and Translation Agencies, Acronyms and Abbreviations Search Engine, Russian Translation Lab, Ukrainian Translation Lab.
You are reading help file online using
CrisisHelper - First Aid in Tough Times of World Economic Crisis

SimpleTimer, ver. 2.0.1

[Properties] [Methods] [Events] [Stand-alone Methods]
[How To Use] [Known Bugs] [Comments]

SimpleTimer is a timer class. It has the same timer resolution as TTimer, but it is more lightweight because it's derived from TObject in stead of TComponent. Furthermore, the same handle is shared between multiple instances of SimpleTimer. This makes it ideal for developers who need a timer in their own components or applications, but want to keep the resource usage minimal.


Enabled property Enabled: Boolean;
Enables (starts) or disables (stops) the timer.
Default False
Interval property Interval: Cardinal;
The interval of the timer in millisecs.
NOTE: Specifying a value of 0 will cause the timer to stop, but will not set the Enabled property to false.
Default 1000
AutoDisable property AutoDisable: Boolean;
If true, the timer will disable itself (Enabled is set to False) immediately after the next time it fires. Useful when you want a one-shot timer.
Default False


Create constructor Create;
Creates a new TSimpleTimer object.
CreateEx constructor CreateEx(AInterval: Cardinal; AOnTimer: TNotifyEvent);
Creates a new TSimpleTimer object with the specified Interval property and OnTimer event.
Destroy destructor Destroy; override;
Destroys the TSimpleTimer object.


OnTimer property OnTimer: TNotifyEvent;
Called when the timer fires.

Stand-alone Methods

GetSimpleTimerCount function GetSimpleTimerCount: Cardinal;
Returns the number of TSimpleTimer objects currently allocated.
GetSimpleTimerActiveCount function GetSimpleTimerActiveCount: Cardinal;
Returns the number of TSimpleTimer objects that are currently active (enabled).

How To Use

This example creates a SimpleTimer object, initializing Interval to 500 milliseconds and the OnTimer event to TForm1.TimerProc1, then starts the timer:
procedure TForm1.FormCreate(Sender: TObject);
  SimpleTimer1 := TSimpleTimer.Create(500, TimerProc1);
  SimpleTimer1.Enabled := True;
This is what TimerProc1 might look like:
procedure TForm1.TimerProc1(Sender: TObject);
  ListBox1.Items.Add('SimpleTimer1 fired');
Remember to destroy the SimpleTimer object when your app. terminates.

Known Bugs


SimpleTimer is freeware. Feel free to use and improve it, but please include all original files if you redistribute the zip-file. If you have any comments or corrections I would very much like to hear them.

Get the latest version from

Troels Jakobsen

You are reading help file online using

If you want your help file to be removed or added please send e-mail to
Partner sites: Logo Design, Simple Anti-Crisis Accounting Software, Voice Search for Web