Форум: "Потрепаться";
Текущий архив: 2003.08.14;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c