Текущий архив: 2002.09.19;
Скачать: 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 вся ветка
Текущий архив: 2002.09.19;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.01 c
