Замена MDI

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

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

Замена MDI

Сообщение divinusproject » 26.05.2006 11:55:27

Предлагаю следующую замену 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 » 29.05.2006 08:18:15

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

while Form2.ControlCount > 0 do
begin
Form2.Controls[0].SetParentComponent(Panel1);
end;
divinusproject
новенький
 
Сообщения: 49
Зарегистрирован: 16.05.2006 08:25:02
Откуда: Барнаул

Сообщение tria » 30.05.2006 10:43:46

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


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: sunjob и гости: 37

Рейтинг@Mail.ru