MDI (Delphi)

[VadEr]

Добрай день!

Мне нужно создать MDI приложение. В условии говориться, что по мимо дочерних окон в главной форме должен быть PageControl для организации многостраничного меню настроек параметров активной дочерней формы.

В связи с этим, разрешите обратиться с рядом вопросов:
1) О каких параметрах активной дочерней формы идет речь?
2) И если я в главной форме начну лазить в PageControl-е, вообще -дочерняя форма будет активной (мне кажется, что доч.форма активна только тогда, когда она в фокусе)?

[Stilet]

О каких параметрах активной дочерней формы идет речь?

Например на первой странице будут настройки цвета каждого контрола. на второй шрифта, на третьей размеров.

Запусти ВинВорд в меню Сервис-Параметры увидишь пример о чем в твоем задании речь

[VadEr]

Хорошо, а как переключая вкладки переключать доч.окна?

Попробовал так, но формы не так как надо переключаются.

MDIChildren[PageControl1.TabIndex].Show;

- первая вкладка не работает, а вторая включает по очереди 1-ю, затем 2-ю.

[Stilet]

Попробуй Screen.Forms[PageControl1.TabIndex].Show
Или каждое окно в массиве держать.
Т.е. имеется ввиду что для каждой вкладки свое окно?

[VadEr]

Другой вопрос, хочу выстроить доч.окна разными способами:

var
  i: byte;
begin
   for i:=0 to MDIChildCount-1 do
       MDIChildren[i].ArrangeIcons;

или

var
  i: byte;
begin
   for i:=0 to MDIChildCount-1 do
       MDIChildren[i].Cascade;

- окна на это не реагируют. Что я делаю не так?

[TriCERATOP]

procedure TMainForm.NCascadeClick(Sender: TObject);
begin
  Cascade;
end;

procedure TMainForm.NHorizontalClick(Sender: TObject);
begin
  TileMode:=TBHorizontal;
  Tile;
end;

procedure TMainForm.NVerticalClick(Sender: TObject);
begin
  TileMode:=TBVertical;
  Tile;
end;

У меня в программе это сделано так. Всё работает.

А у меня такой вопрос:
Как закрывать дочернюю форму?
Если использую метод Free - то форма просто сворачивается. А при использовании метода Destroy выдает ошибку.

[TriCERATOP]

Нашел ответ.

Если кому интересно:

procedure TfrChild.FormClose
      (Sender: TObject; var Action: TCloseAction);
begin
 Action := caFree;
end;