Замена MDI

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
divinusproject
новенький
Сообщения: 49
Зарегистрирован: 16.05.2006 08:25:02
Откуда: Барнаул
Контактная информация:

Замена MDI

Сообщение divinusproject »

Предлагаю следующую замену MDI-интерфейсу:

for i := 0 to Form2.ComponentCount - 1 do
begin
Form2.Components[i].SetParentComponent(Form1.Panel1);
end;

при этом все компоненты формы form2 отображаются на панели panel1, саму форму form2 не нужно показывать. Таким образом можно, например, перенести содержимое форм на закладки.
divinusproject
новенький
Сообщения: 49
Зарегистрирован: 16.05.2006 08:25:02
Откуда: Барнаул
Контактная информация:

Сообщение divinusproject »

А лучше вот так:

while Form2.ControlCount > 0 do
begin
Form2.Controls[0].SetParentComponent(Panel1);
end;
tria
постоялец
Сообщения: 401
Зарегистрирован: 03.04.2006 11:24:10
Контактная информация:

Сообщение tria »

А я предлагаю следующую замену:
Основная форма - formstyle=fsNormal
Дочерние - fsStayOnTop
И панель окон приложения, как в Опере или 1С.
Ответить