Советы по Delphi

         

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


Решение 1

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

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

    ChildIndex := 0 while (ChildIndex < frmMDIParent.ChildCount) and (frmMDIParent.MDIChildren[ChildIndex].Name <> frmNewChild.Name) do Inc(ChildIndex); if ChildIndex = frmMDIParent.ChildCount then {здесь создаем новое дочернее окно} begin Создаем...

если никакого исключения не произошло, показываем форму...
end else {дочерняя форма уже существует, поэтому просто помещаем ее поверх остальных} frmMDIParent.MDIChildren[ChildIndex].BringToFront;

Решение 2

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

    if Form1 <> nil then
begin

Form1 := TForm1.Create(Application); Form1.Show; end;

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

    Action := caFree;
Form1 := nil;

[000164]



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