Инициализация событий

отредактировано 12:27 Раздел: FastScript
Добрый день
Предположим существует
такой скрипт

procedure Form1OnClick(Sender: TObject);
begin
ShowMessage('OK');
end;
begin
Form1.OnClick:=@Form1OnClick;
Form1.ShowModal;
end.
Форма, естественно, добавлена
Возможен ли вариант присваивания событию
Form1.OnClick
процедуры
Form1OnClick
До
fsScript.Execute
т.е. в Delphi
Заранее благодарен за ответ.

Комментарии

  • отредактировано 12:27
    создайте в скрипте процедуру
    prpcedure Events;
    begin
    Form1.OnClick:=@Form1OnClick;
    end;

    в delphi :

    fsScript1.Compile;
    fsScript1.CallFunction('Events',0);
    fsScript1.Execute;
  • отредактировано 12:27
    Добрый день.
    Прежде всего благодарен за ответ.
    Только этот вариант,я рассматривал
    и отверг по причине его искусственности.
    Скажите, существует ли метод без модификации исходного скрипта?
    Или быть может
    имеет смысл создавать новый скрипт ,Parent-ом которого
    является текущий скрипт и там создавать, а потом выполнять эту процедуру.
    Как Вы считаете ?
  • отредактировано April 2006
    Не думаю что это лучший вариант.
    У TfsScript есть метод RunLine только он private, можете поправить и пользоватся им.

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

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.