Timer

← →
UnixManiac © (2002-09-09 04:57) [0]

Так призновайтесь, кто моё сообщение удолил!!!
Ладно.
Скажите как сделать именно таймер.
Типа юзверь делает клик на кномку, м бах
тимер пошол!!!
ЗЫ: Скажите только как таймер делать!!!
ЗЫ2: А лучше исходник пришлите!!!!!!!!!
Заранее блогпдарен!

← →
melifaro © (2002-09-09 05:24) [1]

Всё элементарно просто...

MyTimer_ID - идентефикатор таймера. Он должен быть уникальным для каждого создаваемого тобой таймера. Он нужен для того чтобы его можно было остановить.

Form1.Handle - это понятно идентефикатор твоего главного окна которое создаёт таймер.

1000 - это, собственно, промежуток срабатывания таймера в м.сек.

@OnTimer - pointer на процедуру которая будет исполняться при срабатывании таймера.

А вот и код:

Procedure Const MyTimer_ID = 1000; Procedure OnTimer; Begin Form1.Caption := TimeToStr ( Now ); End; procedure TForm1.Button1Click(Sender: TObject); begin SetTimer ( Form1.Handle, MyTimer_ID, 1000, @OnTimer ); end; procedure TForm1.Button2Click(Sender: TObject); begin KillTimer ( Form1.Handle, MyTimer_ID ); end;

Melifaro. Всегда рад помочь.

Timer Найти похожие ветки