Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.09;
Скачать: CL | DM;

Вниз

работа Timer ом   Найти похожие ветки 

 
rel_   (2003-11-06 16:37) [0]

Мастера, как в конструкторе класса сгенерирвоать таймер и передать в него функцию того же класса.


 
Anatoly Podgoretsky ©   (2003-11-06 16:43) [1]

Теперь переведи


 
rel_   (2003-11-06 17:04) [2]

Перевожу :
Существует ф-ия (пример из моей проги): 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);

И ничего не работает.


 
clickmaker ©   (2003-11-06 17:09) [3]

И не будет. В ф-ию-член класса неявно первым параметром передается Self. А таймер этого не ждет. Ему нужна обычная функция, причем stdcall


 
wicked ©   (2003-11-07 01:30) [4]

типа так:
procedure MyClass.OnTimer( var Msg: TMessage)

заводим переменную TimerProc: Pointer

инициализируем
TimerProc := MakeObjectInstance(OnTimer);
SetTimer(FHandle, 0, 1000, TimerProc);

уходя, убираем
KillTimer(...)
FreeObjectInstance(TimerProc);



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

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

Наверх




Память: 0.47 MB
Время: 0.019 c
8-25446
gunner
2003-09-03 14:20
2004.01.09
Преобразовать Graphic в BitMap


14-25509
РВА
2003-12-16 13:27
2004.01.09
Подключение к сети


3-25183
nik4543
2003-12-09 15:12
2004.01.09
Word


3-25261
XeON
2003-12-09 14:56
2004.01.09
Простейшая база данных


1-25382
Dysan
2003-12-24 15:00
2004.01.09
ctrl+shift+f10