как расширить Rtti

muaddib · June 2010

добавил uses fs_iclassesrtti,fs_iformsrtti

Теперь скрипт видит классы и методы, но не все методы.
Мне нужно добавить метод TControl.FindComponent(), как его добавить?

Пробовал так:

  with fsGlobalUnit.AddClass(TControl,'TObject') do
  begin
    AddMethod('function FindComponent(const AName: string): TComponent;',TControl__CallMethod);
  end;

не работает, Access Violation.

Не с нуля же все классы добавлять?

Stalker4 · June 2010

muaddib написал: »

добавил uses fs_iclassesrtti,fs_iformsrtti

Теперь скрипт видит классы и методы, но не все методы.
Мне нужно добавить метод TControl.FindComponent(), как его добавить?
Не с нуля же все классы добавлять?

С нуля конечно не надо. Вот код, как можно добавлять методы и public-свойства в уже ранее объявленные в FS-RTTI классы.

with fsGlobalUnit.FindClass('TControl') do
  begin
    AddMethod('function FindComponent(const AName: string): TComponent;',TControl__CallMethod);
  end;

Ну и не забыть конечно в CallMethod обработать вызов добавленного метода/свойства (в данном случае метода FindComponent).

как расширить Rtti

Комментарии

Оставить комментарий