Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.031 c
1-47469
Death for...
2002-07-02 15:32
2002.07.15
Чтение значения реестра...


4-47874
Atrem
2002-05-10 22:24
2002.07.15
Оконная процедура


3-47205
Юра
2002-06-19 12:07
2002.07.15
Как сделать вертикальный скроллбар в фильтрованной TTable?


1-47587
Skywalker
2002-06-28 12:40
2002.07.15
Доступ к виз. комп. из других юнитов


1-47327
Алибаба
2002-07-01 11:55
2002.07.15
Интерфейс