[Ross]

Как обойтись без компонента TTaimer. Вообще не использовать ентот компонент.

[Decoding]

Вот пара статей про работу с таймерами на WinAPI:

http://decoding.narod.ru/api/timer/timer.html
http://decoding.narod.ru/api/mmtimer/mmtimer.html

А вот пример использования в проекте с VCL.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

<b>unit</b> Unit1;   <b>interface</b>   <b>uses</b>   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs;   <b>type</b>   TForm1 = <b>class</b>(TForm)     <b>procedure</b> FormCreate(Sender: TObject);     <b>procedure</b> FormClose(Sender: TObject; <b>var</b> Action: TCloseAction);   <b>private</b>     <i><font color="RoyalBlue">{ Private declarations }</font></i>   <b>public</b>     <i><font color="royalblue">{ Public declarations }</font></i>     <b>procedure</b> WMTimer( <b>var</b> Msg: TWMTimer ); <b>message</b> WM_TIMER;   <b>end</b>;   <b>const</b>   TIMER_ID = <font color="royalblue">1</font>;   <b>var</b>   Form1: TForm1;   <b>implementation</b>   <i><font color="royalblue">{$R *.dfm}</font></i>   <b>procedure </b>TForm1.FormCreate(Sender: TObject); <b>begin</b>    SetTimer( Handle, TIMER_ID, <font color="royalblue">1000</font>, <b>nil</b> ); <b>end</b>;   <b>procedure </b>TForm1.WMTimer(<b>var</b> Msg: TWMTimer); <b>begin</b>    Caption := IntToStr( Random( <font color="royalblue">100</font> ) ); <b>end</b>;   <b>procedure</b> TForm1.FormClose(Sender: TObject; <b>var</b> Action: TCloseAction); <b>begin</b>    KillTimer( Handle, TIMER_ID ); <b>end</b>;   <b>end</b>.

[Ross]

Огроменное спасибо

[Ferra]

http://www.delphiworld.narod.ru/base/trytimer.html

[Ross]

Мне желательно не использовать каких-либо компонентов.

[Ferra]

Гм.. а разве он их юзает?
Это класс.

[Ross]

Ладно, тогда гляну его... :d