Ограничение зоны перетаскивания форм/окон

Коллеги, добрый день.
Задача такая. Внутри MDIForm есть слева "меню" (безрамочная MDIChild форма), а на "рабочем поле" программы будут открываться разные дочерние окна, которые не должны закрывать собой меню.
Нужно ограничить перемещение остальных дочерних форм влево до ширины "меню".
А также запоминать их положение.

Решить задачу простым методом видимо не вариант, поскольку события "Form_Move" в барсике не предусмотрено, а все остальные типа MouseDown+MouseMove, DragDrop работают только над полем формы, но не над заголовком, за который эта форма перетаскивается.
По ходу пьесы, чтобы всю скатерть предполагаемого кода не дублировать во все формы в программе, было решено основную исполняемую часть поместить в модуль и сделать универсальной для всех форм, с идентификацией форм по hwnd или ещё как...

Я покурил этот вопрос, нашел примеры на API.
Сделал меню всегда поверх остальных (в случае работающего ограничителя это не нужно, но если не получится, то пусть остальные окошки подлазят ПОД меню.)
Но поскольку в API я мало что понимаю, никак не могу адаптировать код перетаскивания под свою задачу.
Оно работает, перетаскивание форм ограничивает. Но хорошо работает только с одной.
Даже при наличии двойного условия If Form1.Visible = True And Form1.Left < 2000 Then формы вылазят все, достаточно только сдвинуть (видимую, одну из) форму ! Менять формам свойство Visible=false тоже бесполезно, они всё равно вылазят.

Запоминание положения я потом доработаю. Переменные WL и WT сделаю массивами и координаты всех форм буду туда распределять.
Сейчас задача разобраться с Function WinProc. Видимо тут засада, а у меня не хватает знаний API. Помогите пжлст

Прикрепил архив проекта.

Вложения

777.zip (4.3 Кб, 13 просмотров)

0

MrRoxMJ, вообще меню можно добавлять динамически. Пункт меню - это обычный контрол в vb6. Т.е. делаешь пункт меню со свойством Index = 0, и далее для добавления нового пункта вызываешь Load mnuFrm(nIndex). Перечислить WindowList - это нужно смотреть, в крайнем случае можно через WinApi перечислить.

1