Попробовал сделать вот так:

Т.е. бросил на форму CategoryPanelGroup (alLeft), Panel1 (alClient). На Panel1: TabControl (alTop) и Panel2 (alClient).
Ну и написал Form2.Parent := Panel2.
При этом Form1 и Form2 обычные, не MDI, формы.
Но сразу же обнаружились недостатки: нельзя переключиться на форму, кликнув мышкой в произвольное место на ней, а только по заголовку; размер дочерней формы автоматически не меняется при изменении размера родительской. Т.е. всё это нужно будет дописывать руками.

Это сообщение отредактировал(а) Valart - 7.4.2011, 09:02

Ну, с этим компонентом всё понятно. Не подойдёт он по ряду причин. Там же для переключения используются вертикально расположенные кнопки-заголовки, да и как с помощью него открыть на просмотр несколько окон? В общем, не годится!

Кстати, кто-нибудь знает компонент-наследник от TabControl или TabSet для переключения между окнами?

 я такой знаю
http://www.tmssoftware.com/site/aot.asp

На сколько я понял, TAdvOfficeMDITabSet платный и годится только для переключения между MDI.
А бесплатных аналогов с поддержкой обычных окон нет?

В общем, решил, что всё-таки буду использовать MDI-формы. Потому как иначе возникнут лишние заморочки с доделыванием обычных форм до свойств и поведения MDI.
Для переключения между дочерними окнами нашел вот это: MDI ButtonGroup.

А вот решение моего вопроса: Как обмануть align-ов


Это сообщение отредактировал(а) Valart - 13.4.2011, 10:33

Как вариан могу предложить следуюшее:

Код

procedure TForm1.FormCreate(Sender: TObject); begin     AutoScroll:= False;     // Место для TPageControl     PanelTabs := TPanel.Create( Self );     PanelTabs.BevelOuter := bvNone;     PanelTabs.Align      := alTop;     PanelTabs.Parent     := Self;     // Отступ для TPageControl     BevelTabSp := TBevel.Create( Self );     BevelTabSp.Shape  := bsSpacer;     BevelTabSp.Align  := alLeft;     BevelTabSp.Parent := PanelTabs;     // TPageControl     PageControl := TPageControl.Create( Self );     PageControl.Align  := alClient;     PageControl.Parent := PanelTabs;     // Отступ рабочей области дочерных окон     PanelSpacer := TPanel.Create( Self );     PanelSpacer.BevelOuter := bvNone;     PanelSpacer.Align      := alLeft;     PanelSpacer.Parent     := Self;     PanelSpacer.OnResize   := PanelSpacerResize;     // Панель для бокового меню     PanelWork := TPanel.Create( Self );     PanelWork.BevelOuter := bvNone;     PanelWork.Parent     := Self;     // Для изменения разменов PanelSpacer     Splitter := TSplitter.Create( Self );     Splitter.ResizeStyle := rsUpdate;     Splitter.AutoSnap    := False;     Splitter.Align       := alLeft;     Splitter.Left        := PanelWork.Width + 1;     Splitter.Parent      := Self; end;

Код

procedure TForm1.PanelSpacerResize(Sender: TObject); begin     PanelWork.Width  := PanelSpacer.Width;     PanelWork.Height := PanelSpacer.Height + PanelTabs.Height;     BevelTabSp.Width := PanelSpacer.Width + Splitter.Width; end;

А по поводу переключения. В TabSet.Tag присваивай указатель формы которая связана с ним

Код

var F: TForm2;   // . . .   TabSet.Tag := Integer( F );

Код

TForm(PageControl1.ActivePage.Tag).BringToFront;

Cовет: Чтобы не парить мозги что написать в AlignControls
1) Сохрани в папку с проектом файл Controls.pas.
2) Добавь его к проекту
3) И поменяй местами строки как тебе нравится (найди поиском):

Код

DoAlign(alTop);       DoAlign(alBottom);       DoAlign(alLeft);       DoAlign(alRight);       DoAlign(alClient);       DoAlign(alCustom);

PS: Этот вариант мне лично понравился.


Это сообщение отредактировал(а) Gwire - 12.4.2011, 14:46

Gwire, спасибо, но вариант с sql.ru мне нравится больше. Он, скажем так, более красивый. 
А по переключению, я просто не хочу обрабатывать вручную. Делал так когда-то, только с TabSet. Есть хороший бесплатный компонент, так почему его не использовать?