Советы по Delphi
Просто одно дочернее 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]
