Как установить событие на обработчик в скрипте

Комментарии

• Lizard~ Тольятти

  December 2011 отредактировано 12:34

  Тоже озадачился подобной проблемой.
  В документаци решения не нашел. Похоже, что это сделать не представляется возможным. Скрипт не выполняется и невозможно получить адрес процедуры обработки события.
  У кого-нибудь есть мысль как присваивать обработчики события, описанные в скрипте, обьектам создаваемым в коде Delphi при загрузке сериализованных объектов?
  Пока приходит в голову совсем не оригинальные вариант, править скрипт перед выполнением или компиляцией и присваивать обработчики в коде FS.
• DimaBr

  December 2011 отредактировано 12:34

  Я реализовал так. После чтения ресурса (создания формы), создаётся скрипт который заполняется присвоением событий форме и её копонентам и выполняется.
  
• dinekiev

  December 2017 отредактировано December 2017

  
  

  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) then
    begin
      p := GetPropInfo(MyObject, 'OnValueChanged');
  
      e := TfsNotifyEvent.Create(MyObject, TfsProcVariable(v));
      fsScript.Add('', e);
  
      m.Code := e.GetMethod;
      m.Data := e;
        
      SetMethodProp(MyObject, p, m);
    end;
  end;