Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
Внизособенности WndProc Найти похожие ветки
← →
TonnyS (2002-01-08 16:44) [3]Ещё вариант таймера (вычитал где-то):
var
uTimerID : cardinal;
procedure FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD); stdcall; //это типа OnTimer
begin
...
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
uTimerID :=timeSetEvent(PrecValue,500,@FNTimeCallBack,100,TIME_PERIODIC); //запуск таймера, PrecValue - интервал, (что значат остальные цифры - не помню)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
timeKillEvent(uTimerID); //Остановка таймера
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if uTimerID <> 0 then timeKillEvent(uTimerID); //уничтожаем таймер
end;
вроде всё.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c