Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

MDI + Docking [D5, Win95/98, Win2k]


Maker ©   (2004-08-19 00:25:00) 

Бодрого времени суток Мастера, подскажите
как правильно организовать "стыковку"
одной 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.


Afteam   (2004-08-20 15:44:00) [1]

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


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

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


Maker   (2004-08-19 17:17:00) [3]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо