В общем, есть неразрешимая проблема! 
Есть MDI-форма на ней расположен CategoryPanelGroup (align=alLeft) и TabControl (align=alTop).
http://s2.ipicture.ru/uploads/20110330/Gg1FFMxv.png

Так вот каким образом сделать так, чтобы alLeft имел приоритет над alTop?
http://s2.ipicture.ru/uploads/20110330/5T7RI5tK.png

Единственное, что пришло в голову так это бросить TabControl на Panel и менять размер TabControl по изменению размера формы. Но в результате получается не совсем тот вид, который нужен.
http://s2.ipicture.ru/uploads/20110330/tUCAR0QJ.png

Не совсем понял, что это значит - иметь приоритет.
Может поставить TabControl alClient?

В принципе, на скрине всё показано... Стандартно alTop имеет приоритет над alLeft, т.е. alTop, грубо говоря, отнимает у alLeft место. 
Если поставить у TabControl alClient, то не будет места для отображения MDIChild. TabControl в данном случае используется для переключения между дочерними окнами.

для TabControl  не делай align, а используй Ancher, что бы правый его край двигался вместе с формой

А принципиально в этом случае так извращаться? Не проще ли использовать PageControl и на страницы накидать тех компонентов, что должны быть на миди-формах?

Если для TabControl не делать Align, то дочерние окна подлезают под него.

Добавлено через 4 минуты и 21 секунду


Нет, не проще. В программе иногда нужно будет рассматривать одновременно два или больше окон. Да и форм предполагается большое количество.

Судя по всему, проблема действительно неразрешимая, хотя кажется такой простой...

Кинь справа панель с alClient. А уже на эту панель TabControl alTop.

Ты сам пробовал? Если панель будет alClient, то где будут отображаться дочерние окна? Подсказываю: под панелью.

для дочерних окон можно парентом панель сделать, и они будут на ней показываться.

Пробовал уже. Но что-то не получилось. Не отображается у меня дочернее окно на панели. Если у тебя получилось, то пожалуйста напиши как?

1) Есть компонент TsFrameBar из пакета AlphaControls (для СНГ бесплатно даже в ком. целях). 
    Можно поменять MDI-Child на фреймы(а можно и не менять). События обработки есть в этом компоненте.  (ну это другой вариант)
2) Не могу понять, почему не работает так, как предложил Frees в последнем посте.

Может не так понял, но судя поскриншотам задача легко решается.

З.Ы. Напиши как создаешь чилд-форму, может там че не то, хз......................

Это сообщение отредактировал(а) _Dimon_ - 5.4.2011, 01:23

нет я так не пробовал, поэтому и не посоветовал такой вариант в своем первом посте.



попробовал, не работает..

просто присвоить Parent не работает



при присвоении





Это сообщение отредактировал(а) Frees - 5.4.2011, 06:25

А он, этот TsFrameBar, может быть контейнером для форм?

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

Т.е. бросил на форму 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. Есть хороший бесплатный компонент, так почему его не использовать?