AddForms

Комментарии

• AlexTZ

  September 2004 отредактировано 03:33

  Метод AddForm годится только для статического использования, т.к. вносит изменения в архитектуру ранее добавленного класса TForm. Для динамически создаваемых форм одного типа его использовать нельзя. В этом случае надо добавлять все объекты формы вручную в скрипт, и обращаться к ним по их имени (без имени формы).
• stas

  September 2004 отредактировано 03:33

  Отвечаю на собственный вопрос.
  Ограничение по добавлению
  динамических форм можно обойти следующим образом
  procedure TForm1.ButtonClick(Sender: TObject);
  var Form:TForm;
  begin
  fsScript.Clear;
  fsScript.Parent:=nil;// Это важно тогда он не будет искать в глобал юните
  if Assigned(Application.FindComponent('Form'))
  then Application.FindComponent('Form').Free;
  Form:=TForm.Create(Application);
  Form.Name:='Form';
  with TButton.Create(Form) do
  begin
  Parent:=Form;
  Name:='Button1';
  end;
  fsScript.AddClass(Form.ClassType);
  fsScript.AddForm(Form);
  fsScript.Parent:=fsGlobalUnit
  fsScript.Lines:=Memo1.Lines;
  if fsScript.Compile then fsScript.Execute
  else ShowMessage(fsScript.ErrorMsg);
  end;
  и Скрипт
  begin
  Form.Button1.Caption:='QQ';
  Form.ShowModal;
  end.