Главная страница
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.03 c
1-25284
tria
2003-12-22 18:23
2004.01.09
Можно ли убрать свойство, кот. не нужно?


4-25654
Testerman
2003-11-05 19:03
2004.01.09
Помогите заменить кнопку


14-25505
vajo
2003-12-16 16:58
2004.01.09
Delphi + Реестр


3-25211
big_bugzy
2003-12-11 15:32
2004.01.09
Ошибка про множество таблиц в запросе


1-25337
madm
2003-12-18 17:35
2004.01.09
Как создать объект с помощью OleCreate???