Текущий архив: 2002.07.15;
Скачать: CL | DM;
Вниз
Как узнать указатель на функцию? Найти похожие ветки
← →
Dmk © (2002-07-02 05:15) [0]Как узнать указатель на функцию, если она описана например в потомке класса TForm? Если делать так
cwpPointer := @TDrawForm.ClientWindowProc;
то при передаче управления работает все кроме этой функции.
Или это указатель на место где лежит реальное значение?
← →
Dmk © (2002-07-02 05:18) [1]Sry. Работает не все. Класс TDrawForm вообще не работает. :(
← →
Dmk © (2002-07-02 05:20) [2]А если сделать эту функцию не в классе то все нормально. ClientWindowProc работает, но ей не доступны переменные класса. :(
← →
T'Mon © (2002-07-02 05:45) [3]Procedure of object - это восьмибайтовый указатель.
Так что делай примерно так:
type
TClientWindowProc = procedure(...) of object;
var
cwpPointer: TClientWindowProc;
...
cwpPointer := DrawForm.ClientWindowProc
...
Учти в присвоении нужен реальный объект.
← →
MBo © (2002-07-02 06:43) [4]type OProc=procedure of object;
var M:TMethod;
begin
M.Code := @TSomeClass.SomeProc;
M.Data := Self;//или нужный экземпляр объекта
OProc(M);
Страницы: 1 вся ветка
Текущий архив: 2002.07.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
