Главная страница
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.036 c
14-25530
Floppy
2003-12-19 14:32
2004.01.09
Delphi 5.0 на Win2k


6-25476
Anarki
2003-11-07 23:58
2004.01.09
Проблема с idSMTP


3-25180
malya
2003-12-13 23:10
2004.01.09
Проблемы с добавлением в базу


9-25176
dimodim
2003-05-30 14:02
2004.01.09
Помогите с 3d в Дельфи икс и 2 *.X соеденить


1-25392
Vasilij
2003-12-24 18:34
2004.01.09
C++ DLL в Delphi