Скачать: CL | DM;

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. Всегда рад помочь.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c