Комментарии

• uses   TypInfo, fs_iinterpreter; procedure ConnectEvent(fsScript: TfsScript; MyObject: TMyClass); var   v: TfsCustomVariable;   e: TfsNotifyEvent;   p: PPropInfo;   m: TMethod; begin   v := fsScript.Find('MyObjectValueChanged');   if Assigned(v) t…

  Раздел: Как установить событие на обработчик в скрипте Комментарий от dinekiev December 2017