Просто одно дочернее MDI-окно?

Решение 1

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

Если вы не просто хотите иметь единственное MDI-окно, а запретить появление дубликатов конкретного типа форм (например: только одно окно со счетами, только одно окно с фактурой, только одно окно со статистикой продаж и т.д.), вам необходимо в цикле убедиться, что такое окно уже существует (или наоборот). В этом случае можно воспользоваться каким-либо идентификатором, например именем дочерней формы в пределах родительского окна. Код для примера:

ChildIndex := 0while (ChildIndex < frmMDIParent.ChildCount) and(frmMDIParent.MDIChildren[ChildIndex].Name <> frmNewChild.Name) doInc(ChildIndex);if ChildIndex = frmMDIParent.ChildCount then{здесь создаем новое дочернее окно}beginСоздаем...если никакого исключения не произошло, показываем форму...endelse{дочерняя форма уже существует, поэтому просто помещаем ее поверх остальных}frmMDIParent.MDIChildren[ChildIndex].BringToFront;

Решение 2

Создаем форму:

if Form1 <> nil then
begin
Form1 := TForm1.Create(Application);Form1.Show;end;

Обработчик события OnClose формы:

Action := caFree;
Form1 := nil;

[000164]

Содержание раздела