Вверх ↑
Ответов: 4617
Рейтинг: 506
#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;
карма: 6

0