VPF::Создание object типа TForm - Форум программистов

pvg79

Дата 26.9.2008, 09:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет, подскажите:
Как из программы создать объект типа TForm, но есть нюанс имя объекта записано в таблице
в поле ID, т.е. значение переменной должно быть объектом. Таких объектов одновременно будет открыватся несколько, и в каждой форме присутствует объект "Button" при нажатии на них должны обрабатыватся разные прцедуры и т.д. smile

pseud

Дата 26.9.2008, 09:58 (ссылка)

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

Загрузка ...

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

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

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

Код


with TForm.Create do
begin
  Name := 'EntityForm' + YourDataSet.FieldByName('ID').AsString; // вот тебе уникальное имя
  Show;
end;

Добавлено через 7 минут и 44 секунды
а еще лучше так:
допустим форма сущности - класс TEntityForm

Код


  sFormName := 'EntityForm' + YourDataSet.FieldByName('ID').AsString;

  iScreenFormCount := Screen.FormCount;

  tmpForm := nil;
  for i := iScreenFormCount - 1 downto 0 do
  begin
    tmpForm := Screen.Forms[i];
    if (tmpForm is TEntityForm)
    and (tmpForm.Name = sFormName) then
      Break
    else
      tmpForm := nil;
  end;

  if tmpForm = nil then
  begin
    tmpForm := TEntityForm.Create(Self);
    tmpForm.Name := sFormName;
  end;

  tmpForm.Show;

Это сообщение отредактировал(а) pseud - 26.9.2008, 09:59

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

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

pvg79

Дата 26.9.2008, 14:39 (ссылка)

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

Загрузка ...

Новичок

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

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

Я так делал, при работе со вторым окном все действия отображаются в первом. smile

aktuba

Дата 26.9.2008, 14:58 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Цитата(pvg79 @ 26.9.2008, 15:39

)

Я так делал, при работе со вторым окном все действия отображаются в первом.

Ну так покажи тестовый проект, т.к. не понятна, в чем именно проблема у тебя.

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

pseud

Дата 26.9.2008, 15:34 (ссылка)

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

Загрузка ...

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

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

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

Цитата(pvg79 @ 26.9.2008, 14:39

)

Я так делал, при работе со вторым окном все действия отображаются в первом.

значит неправильно ты получешь имя второго окна. smile

если б ты Я так делал, то у тебя бы все работало. как напрмер работает у меня smile

код в студию. smile

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

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

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