VPF::Динамическое формирование файла формы

GreyDiamond

Дата 11.3.2010, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 11.3.2010

Репутация: нет
Всего: нет

Добрый день всем! Возникла следующая дилемма - необходимо динамически сгенерировать dfm файл и юнит к нему, на форме должны быть элементы управления в зависимости от исходных данных, ну и результат всего этого должен будет открываться в дизайн тайме! Пока непридумал ничего другого как ручное формирование dfm и pas файлов, но может ктонибудь сталкивался с такой задачей и решил её? На форуме порылся но ничего подобного не нашёл, в основном если кто-то и создаёт динамическую форму с элементами на ней то незадаётся вопросом её сохранения... :(

Это сообщение отредактировал(а) GreyDiamond - 11.3.2010, 08:50

Frees

Дата 11.3.2010, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

а зачем?

--------------------

Кольцов Виктор Владимирович

pseud

Дата 11.3.2010, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(GreyDiamond @ 11.3.2010, 08:48

)

если кто-то и создаёт динамическую форму с элементами на ней то незадаётся вопросом её сохранения... :(

копай для начала здесь:
TPersistent. Статья. или новый взгляд на сохранение настроек

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Snowy

Дата 11.3.2010, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Ну с dfm тебе поможет ObjectBinaryToText.

Код

var
  s, ms: TMemoryStream;
begin
  s := TMemoryStream.Create;
  s.WriteComponent(Form1);
  s.Position := 0;
  ms := TMemoryStream.Create;
  ObjectBinaryToText(s, ms);
  ms.Position := 0;
  Memo1.Lines.LoadFromStream(ms);
  ms.Free;
  s.Free;
end;

А вот код действительно нужно ручками строить.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »