Советы по 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]
