как расширить Rtti
добавил uses fs_iclassesrtti,fs_iformsrtti
Теперь скрипт видит классы и методы, но не все методы.
Мне нужно добавить метод TControl.FindComponent(), как его добавить?
Пробовал так:
не работает, Access Violation.
Не с нуля же все классы добавлять?
Теперь скрипт видит классы и методы, но не все методы.
Мне нужно добавить метод TControl.FindComponent(), как его добавить?
Пробовал так:
with fsGlobalUnit.AddClass(TControl,'TObject') do
begin
AddMethod('function FindComponent(const AName: string): TComponent;',TControl__CallMethod);
end;
не работает, Access Violation.
Не с нуля же все классы добавлять?
Комментарии