VPF::MDI и его дочерние окна - Форум программистов

sergio1982

Дата 7.7.2006, 14:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброе время Ув. знатоки.

Ситуация такая.
Есть MDI приложение, никак не могу добиться того, что бы ДОЧЕРНЕЕ окно запускалось токо в одном варианте.

Специфика заключается в том, что у меня для всех журнальных форм (шаблон формы - с кнопинями - типа добавить,удалить, редактировать и ГРИДОМ)... Так вот, эту ворму я вызываю так:

Код


 ttType := ttNakladPrihod;
 TfSelect.CreateIt(fMain,conn,id_sess,ttType);

параметры значения не имеют ... далее, конструктор формы выглядет так:

Код


constructor TfSelect.CreateIt(Owner:TComponent;con:MySQL;ses_id:Integer;tp:TTableType;param:Integer=0);
begin

 inherited Create(Owner);
 conn := con;
 id_sess   := ses_id;
 id_param  := param; 
 ttType    := tp;
 flag := False;
 fclose := False;
 FTableView := tp;

 if (Owner.ClassName = 'TEdit')OR(Owner.ClassName = 'TSpeedButton') then begin
  flag := True;
  Position := poMainFormCenter; 
  FormStyle   := fsNormal;
  BorderStyle := bsDialog;
  bOk.Visible := True;

  ShowModal;
 end else begin
  FormStyle   := fsMDIChild;
  BorderStyle := bsSizeable;
  ttTypeBack := ttType;
  Show;
 end;

 lblTime.Caption := Время: '+TimeToStr(Time);
end;

Так как же, все таки победить данную задачу?

_hunter

Дата 7.7.2006, 16:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

у главной формы есть свойство Childs (или похожее)
перед созданием новой формы пробегись по всем элементам этого свойства; если формы нет -- создавай

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

Tempora mutantur, et nos mutamur in illis...

sergio1982

Дата 7.7.2006, 16:15 (ссылка)

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

Загрузка ...

Новичок

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

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

А как я форму ИДЕНТЕФИЦИРУЮ?

_hunter

Дата 7.7.2006, 18:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

можеш по Tag' уб можеш по имени класса, можеш по типу класса, ... -- методов -- куча...

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

Tempora mutantur, et nos mutamur in illis...

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