MDI + Docking

← →
Maker (2004-08-19 00:25) [0]

Бодрого времени суток Мастера, подскажите
как правильно организовать "стыковку"
одной MDIChild формы с другой?

Суть проблемы :
Есть MDI приложение, в нём есть 2 типа форм :
1 - управление содержанием формы "тип 2" - 1 экземпляр,
2 - форма с некоторым содержанием - до N экземпляров.
Требуется реализовать стыковку формы "тип 1" с формой
"тип 2".

Решение:
Тип1.DragKind=dkDock;
Тип1.DragMode=dmAutomatic;
Тип2.DockSite=True;
Тип2.UseDockManager=True;
procedure Тип1.FormDockOver...
begin
Accept:=(Source.Control is TТип1);
end;

Результат:
При перетаскивании формы "тип 1" на форму "тип 2",
форма "тип 1" становиться шириной с форму "тип 2",
при этом активной формой становиться "тип 2" - занавес...

Respect.

← →
Maker (2004-08-19 17:17) [1]

Пробовал ManualDock - выдаються ошибки.

← →
Maker (2004-08-19 19:09) [2]

Народ, если Вы не сталкивались с этим, то так и напишите
"Незнаем", млин... А если решали этот вопрос, то, уже, поделитесь! Нельзя же быть такими жадными :)

← →
Afteam (2004-08-20 15:44) [3]

Честно. Лично мне не приходилось...
Но можешь попробовать форму1 кидать не на форму2, а на панель в форме2 (не пробовал, но может прокатить)

MDI + Docking Найти похожие ветки