Два режима отображения формы

Добрый день!
Есть форма, которую в зависимости от контекста нужно показывать либо как дочернее MDI-окно, либо как не обычное модальное.
Режим отображения задается, допустим, передачей логической переменной.

Т.е. теоретически что-то вроде:

Для немодального режима:

frmLiabilityContractsManager := TfrmDocumentManager.Create(Application, False);

Для модального режима:

frmLiabilityContractsManager := TfrmDocumentManager.Create(Application, True);

Подскажите, как правильно написать конструктор для TfrmDocumentManager. Или любой другой путь для решения этой проблемы.

  if Edit1.Text <> 'MODAL' then
  begin
     Form2 := TForm2.Create(Application);
     Form2.FormStyle := fsMDIChild;
  end else
  begin
     Form2 := TForm2.Create(Application);
     Form2.ShowModal;
  end;

Все гениальное просто. Спасибо, Ramin!

P.S. Тему можно закрыть.

Столкнулся с проблемой отображения (или прорисовки) модального окна -
есть fsMDIChild - форма и необходимость открытия в нем еще одной fsMDIChild формы (в "исходном" режиме - это просто окно редактирования справочника), но уже через ShowModal (это в режиме "выбор значения из справочника" для передачи в "основную Child-форму). При этом хочу, что бы форма появилась в центре (poMainFormCenter) главной формы fsMDIform.
так при ShowModal окно сначала создается (визуально прорисовывается) где-то за пределами главной fsMDIform (над левым верхним углом), и уже потом "перепрыгивает" в центр формы.
Можно ли как-то избавиться от "прыжка" окна, что бы оно сразу в центре и появилось?

форму открываю (в стандартном New-MDI Application) кодом:

procedure TMDIChild.btn1Click(Sender: TObject);
var
   DlgForm:TMDIChild; (тут любая Child-форма)
begin
   DlgForm:=TMDIChild.Create(self);
   DlgForm.FormStyle:=fsNormal;
   DlgForm.Visible:=False;
   DlgForm.btn1.Destroy;
   DlgForm.Memo1.Text:='ÝÒÎ ÌÎÄÀËÜÍÎÅ ÎÊÍÎ';
   DlgForm.Position:=poMainFormCenter;
   DlgForm.ShowModal;

end;

Batts
DlgForm.Visible:=False; DlgForm.btn1.Destroy;

Эта порнография зачем?

_Vasilisk_
Batts DlgForm.Visible:=False; DlgForm.btn1.Destroy; Эта порнография зачем?

иначе "Cannot maek visible window modal". на счет кнопки - так, что бы в окна были разные (btn1Click же...).
а Вы как предлагаете открывать форму без порнографии?

Batts
_Vasilisk_ пропущено... Эта порнография зачем? иначе "Cannot maek visible window modal". на счет кнопки - так, что бы в окна были разные (btn1Click же...). а Вы как предлагаете открывать форму без порнографии?

Чтобы не париться с такой порнографией, сделайте две копии формы, одну для модального отображения, другую для немодального.
Код обработки событий выносите в отдельный модуль (unit то-бишь).
Естественно, что это потребует чуть больше работы с точки зрения поддержки приложения, но ИМХО - это более верное решение нежели смена признака модальности формы на лету.
И потом, что будете делать, если к примеру в модельной версии формы понадобится добавить ещё какие-либо элементы управления, которых не должно быть в немодальной?

Alex Kuznetsov

......... Чтобы не париться с такой порнографией, сделайте две копии формы, одну для модального отображения, другую для немодального. Код обработки событий выносите в отдельный модуль (unit то-бишь). Естественно, что это потребует чуть больше работы с точки зрения поддержки приложения, но ИМХО - это более верное решение нежели смена признака модальности формы на лету. И потом, что будете делать, если к примеру в модельной версии формы понадобится добавить ещё какие-либо элементы управления, которых не должно быть в немодальной?

У меня была такая идея, но мне показалось правильным всё же оставить 1 форму.
вид формы (modal/child) я определяю добавлением свойства OpenMode, в зависимости от этого и отображаю visible контроллов...
и всё же мне кажется 2 формы тут не нужны. Но, конечно же вариант избавления от "мигания" окон. Спасибо.

Batts
иначе "Cannot maek visible window modal".

В дизайнере Visible := False;

Batts
на счет кнопки - так, что бы в окна были разные

Наследование форм.