Вверх ↑
Ответов: 4612
Рейтинг: 746
#1: 2009-11-11 16:26:39 ЛС | профиль | цитата
andrestudio, так:

#pas
var
p:Longint;

constructor THiAsmClass.Create;
begin
...

p:=Longint(Self);
...
end;



function ChildCallback(HWnd: THandle; Msg: Cardinal;
....
begin
....
THiAsmClass(Pointer(P))._hi_onEvent(onPath, path);
...
end;
карма: 26

1
Голосовали:andrestudio