Текущий архив: 2003.08.14;
Скачать: CL | DM;

Вниз

API Timer   Найти похожие ветки 

← →
Gayrus ©   (2003-06-14 07:15) [0]

Пишу свой компонент, и в каждую секунду надо вызывать определённую процедуру. Я делаю так:

Procedure T(...).SetActive(Value: Boolean);
begin
If Value<>FActive then begin
FActive:=Value;
If FActive then begin
SetTimer(0,9999,FInterval,Addr(T(...).TimerProc));
end else begin
( 0,9999) Пишу свой компонент, и в каждую секунду надо вызывать определённую процедуру. Я делаю так:

Procedure T(...).SetActive(Value: Boolean);
begin
If Value<>FActive then begin
FActive:=Value;
If FActive then begin
SetTimer(0,9999,FInterval,Addr(T(...).TimerProc));
end else begin
KillTimer(0,9999);
end;
end;
end;

procedure T(...).TimerProc(hWnd: HWND; uMsg, nIDEvent: UINT; dwTime: dword);
begin
// А вот здесь возникает ошибка
If Assigned(FOnTimer) then FOnTimer(Self);
end;

PS : T(...)-название компонента :)

---

← →
Suntechnic ©   (2003-06-14 18:01) [1]

Callback ф-ция таймера не может быть методом класса.

---

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

Текущий архив: 2003.08.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.007 c