HiAsm

Ответов: 5227

Рейтинг: 586

#1: 2017-12-04 20:07:50 ЛС | профиль | цитата

Проблема это житейское, вероятно её можно преодолеть.
Для примера, доступ к приват переменным, функциям и процедурам можно получить с помощью хака


type
{$ifdef F_P}
  THack = class;
  PHack = THack;
  Thack = class(Tcontrol)
{$else}
  PHack = ^THack;
  Thack = object(Tcontrol)
{$endif}
 end;

далее в коде допустим так PHack(Control).fHandle := FWndHandle;

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...