Перемещение окон в Delphi 7.0

[a_n_n_a]

Здравствуйте, помогите, пожалуйста
У меня в программе несколько окон, как сделать так, чтобы при перемещении любого окна, все остальные окна перемещались вместе с ним?=))

[Toxa]

чтото типа setwindowpos, точно не помню

[Jeni]

Самое универсальное - создать свой шаблон формы (новый класс), прописать там все необходимые операции, поместить в репозитарий, а потом все формы проекта наследовать от данного окна из репозитария.

[KORN]

у формы есть событие CanResize в нем пиши

procedure tform1.FormCanResize(Sender: tobject);
begin
form2.left:=form1.left;
end;

[Пепел Феникса]

KORN, поправлю
CanResize это функция какая-то, кстати а что она делает...с ней я чего то не знаком...
а событие OnResize

[KORN]

чуть чуть поправлю там событие FormCanResize... OnResize - это изменение размера формы.

[mihali4]

http://programmersforum.ru/showthread.php?t=13165
По указанному событию TForm1.OnMove вычисляйте, куда и насколько сдвинулась активная форма вашего приложения и соответственно сдвигайте остальные формы.

[ArtInt]

Да, действительно, перехватывать сообщение wm_move для формы это первое, что приходить в голову в этом случае. Работающий код для трех форм на Delphi 7 вылаживаю в архиве.
Маленькая проблема возникает с тем, что нельзя просто прописывать в процедурах сообщения сразу присваивания другим формам, так как формы еще не созданы, поэтому приходится проверять.
Интересно, есть ли другой метод решения данной задачи....

[KORN]

его я описал выше

[Deight]

Давно Delphi не открывал.
#8-хорошо.
Могу предложить ещё вариант

...
procedure WMWindowPosChanged(var Msg: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED;
...
procedure TForm1.WMWindowPosChanged(var Msg: TWMWindowPosChanged);
begin
if Form2<>nil then
begin
Form2.Left:=Form2.Left+(Msg.WindowPos.x-Left);
Form2.Top:=Form2.Top+(Msg.WindowPos.y-Top);
Form2.Height:=msg.WindowPos.cy;
inherited;
end;
end;

В WM_WINDOWPOSCHANGED передаётся ещё и размеры формы, может пригодиться. На висте проблем нет.