Cоздание таймеров на win-api
Итак, таймер это некоторое событие наступающее через заданный промежуток времени. В нашем случае
это вызов процедуры, итак запускай свой delphi и создвай простой проект. Далее,
расположи на форме две кнопки, первая будет запускать таймер, вторая останавливать,
приведу конкретный пример:
.......
implementation
{$R *.dfm}
procedure ForTimer;
begin
SetPixel(Form1.Canvas.Handle, random(300), random(300), 255);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetTimer(Application.Handle, 10, 100, @ForTimer);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
KillTimer(Application.Handle, 10);
end;
end.
Здесь всё просто - функцией SetTimer - запускаем таймер который вызывает процедуру (или функцию)
каждые 1000 секунд. Итак, первый параметр - идентификатор окна с которым будет ассоциирован таймер, второй
параметр - уникальный идентификатор таймера, у всех таймеров он должен быть разный! Третим параметром мы передаём
интервал, в миллисекндах, через который будет вызываться функция переданная 4 параметром. Вот и всё.
Теперь по "убийству" таймера - передаём два параметра - хэндл окна, переданный в первом параметре при создании таймера,
и тот айдишник, который ты указал во втором параметре.
Вот собственно и всё. Конечно же существует ещё несколько функций работы с таймерами, однако они не особо нужны, ибо здесь я
изложил основу.
SLAyer
Другие статьи
По всем вопросам и предложениям по сайту пишите на info@comp-info.ru  
|