| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
работа Timer ом
rel_ © (2003-11-06 16:37:00)
Мастера, как в конструкторе класса сгенерирвоать таймер и передать в него функцию того же класса.
wicked (2003-11-07 01:30:00) [1]
типа так:
procedure MyClass.OnTimer( var Msg: TMessage)
заводим переменную TimerProc: Pointer
инициализируем
TimerProc := MakeObjectInstance(OnTimer);
SetTimer(FHandle, 0, 1000, TimerProc);
уходя, убираем
KillTimer(...)
FreeObjectInstance(TimerProc);
clickmaker (2003-11-06 17:09:00) [2]
И не будет. В ф-ию-член класса неявно первым параметром передается Self. А таймер этого не ждет. Ему нужна обычная функция, причем stdcall
rel_ (2003-11-06 17:04:00) [3]
Перевожу :
Существует ф-ия (пример из моей проги): SetTimer(FHandle, 0, 1000, @TimerProc);
Как мне организовать ф-ию TimerProc - если это ф-ия класса.
Делаю следующее:
1) объявляю тип TTimerProc = procedure (Wnd : HWND; msg : UINT; idTimer : UINT; dwTime:DWORD) of object;
2) в классе объявляю переменную FTimerProc : TTimerProc
3) в этом же классе завожу процедуру OnTimer(Wnd : HWND; msg : UINT; idTimer : UINT; dwTime:DWORD)
4) в конструкторе класса пишу след:
FTimerProc:=OnTimer;
SetTimer(FHandle, 0, 1000, @FTimerProc);
И ничего не работает.
Anatoly Podgoretsky (2003-11-06 16:43:00) [4]
Теперь переведи
| |
