Как узнать указатель на функцию?

← →
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 ...

Учти в присвоении нужен реальный объект.

type OProc=procedure of object;
var M:TMethod;

begin

M.Code := @TSomeClass.SomeProc;
M.Data := Self;//или нужный экземпляр объекта
OProc(M);

Как узнать указатель на функцию? Найти похожие ветки