Инициализация событий
Добрый день
Предположим существует
такой скрипт
procedure Form1OnClick(Sender: TObject);
begin
ShowMessage('OK');
end;
begin
Form1.OnClick:=@Form1OnClick;
Form1.ShowModal;
end.
Форма, естественно, добавлена
Возможен ли вариант присваивания событию
Form1.OnClick
процедуры
Form1OnClick
До
fsScript.Execute
т.е. в Delphi
Заранее благодарен за ответ.
Предположим существует
такой скрипт
procedure Form1OnClick(Sender: TObject);
begin
ShowMessage('OK');
end;
begin
Form1.OnClick:=@Form1OnClick;
Form1.ShowModal;
end.
Форма, естественно, добавлена
Возможен ли вариант присваивания событию
Form1.OnClick
процедуры
Form1OnClick
До
fsScript.Execute
т.е. в Delphi
Заранее благодарен за ответ.
Комментарии
prpcedure Events;
begin
Form1.OnClick:=@Form1OnClick;
end;
в delphi :
fsScript1.Compile;
fsScript1.CallFunction('Events',0);
fsScript1.Execute;
Прежде всего благодарен за ответ.
Только этот вариант,я рассматривал
и отверг по причине его искусственности.
Скажите, существует ли метод без модификации исходного скрипта?
Или быть может
имеет смысл создавать новый скрипт ,Parent-ом которого
является текущий скрипт и там создавать, а потом выполнять эту процедуру.
Как Вы считаете ?
У TfsScript есть метод RunLine только он private, можете поправить и пользоватся им.