Timer [D6, WinME]
UnixManiac © (2002-09-09 04:57:00)
Так призновайтесь, кто моё сообщение удолил!!!
Ладно.
Скажите как сделать именно таймер.
Типа юзверь делает клик на кномку, м бах
тимер пошол!!!
ЗЫ: Скажите только как таймер делать!!!
ЗЫ2: А лучше исходник пришлите!!!!!!!!!
Заранее блогпдарен!
melifaro (2002-09-09 05:24:00) [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. Всегда рад помочь.
Наверх 
ЧАТ |
Орешник |
|
