Создать форму из текстового DFM

Комментарии

• marvel

  August 2006 отредактировано 19:31

  dmitry72 написал:

  научите как создать форму из текстового DFM
  при помощи скриптера.

  а такое возможно средствами FastScript?
  
  Думаю тут надо очень много работать, писать юниту которая обрабатывала бы DFM-файл и строила в runtime форму...
  Извините, если не прав
  
  
• Vlad Matvienko Mariupol

  August 2006 отредактировано 19:31

  procedure CreateCustomForm (const dfm_file_name: string );
  var
  form: TForm;
  FileStream: TFileStream;
  MemoryStream: TMemoryStream;
  begin
  // создание формы на основе внешнего dfm файла
  
  Form := TForm.CreateNew(nil);
  FileStream := TFileStream.Create(dfm_file_name, fmOpenRead);
  MemoryStream := TMemoryStream.Create();
  ObjectTextToResource(FileStream, MemoryStream);
  MemoryStream.Position :=0;
  MemoryStream.ReadComponentRes(Form);
  MemoryStream.Destroy();
  FileStream.Destroy();
  
  Form.ShowModal();
  Form.Destroy();
  end;
  //

  ---

  
  Только конечно эту функцию нужно записать не FastScript, а в коде программы и экспортировать ее в FastScript.
  Тогда можно будет, вызывая ее из скрита, создавать формы из dfm.
  
  Правда, там все не так гладко и есть пару нюансов именно при создании форм из dfm с кучей компонентов, связанных с RegiterClass и тем, что форма в dfm должны быть класса TForm.
  
• dmitry72

  August 2006 отредактировано 19:31

  >и тем, что форма в dfm должны быть класса TForm.
  
  
  обходимо.
  берем стринг с DFM и правим первую строку прямо в рантайм на
  object Form1 : TForm\r\n
• marvel

  August 2006 отредактировано 19:31

  Ну, допустим мы создали форму из DFM. Как сейчас в скрипте привязать логику, как обращаться к элементам этой формы.. Че-та я не понимаю...
• dmitry72

  August 2006 отредактировано 19:31

  >Как сейчас в скрипте привязать логику, как обращаться к элементам этой >формы..
  
  К элементам формы обращаться можно по имени
  FindComponent
  
  А логику...
  Думаю что если скриптер поставлен на форму и в него положен скрипт,
  то и скрипт вместе с ресурсами сохраниться и восстановиться из DFM.
  
  
• marvel

  August 2006 отредактировано 19:31

  dmitry72 написал:

  А логику...
  Думаю что если скриптер поставлен на форму и в него положен скрипт,
  то и скрипт вместе с ресурсами сохраниться и восстановиться из DFM.

  А вот это надо попробовать! Может кто-нить реализует прототип такого приложения???.. небольшой рабочий примерчик не помешает...