Слипание окон в дельфи

[Глеб1991]

Добрый день.
Нужна помощь у меня программе три формы и эти формы должны слипаться между собой т.е. передвигаться вместе по всему экрану. Разумеется и разлипаться если пользователь зажал, выбранную им форму и хаотично начал её двигать.

Мне это надо, но я не знаю как это реализовать. Если кто хочет мне помочь то пишите на почту gleb.lucenko@mail.ru. Разумеется я выложить за работу круглую сумму.

[Dj_SheLL]

Не надо платить.
Изучаем готовое.

[Глеб1991]

вот второй архив ближе, но увы такое и я могу сделать. Мне надо чтобы хаотично все было, а не так что одна с одной стороны, другая с другой

[Глеб1991]

вот какая штука у меня - на склейку, но увы формы три, а не две. Третья всегда вторую затирает так как я не знаю как сделать проверку на склейку и еще не знаю как разлепить.
procedure TForm2.WMMove(var Msg: TWMMove);
begin
try
if Assigned(Form3) then
begin
if abs(Form2.Left+Form2.Width-Form3.Left)<300 then //лево
begin
Form3.Left:=Form2.Left+((Form2.Widt h div 2)+50);
Form3.Top:=Form2.Top;
end;
if abs(Form3.Left+Form3.Width-Form2.Left)<300 then //право
begin
Form3.Left:=Form2.Left-((Form3.Width div 2)+50);
Form3.Top:=Form2.Top;
end;

if abs(Form2.Left+Form2.Width-Form4.Left)<300 then //лево
begin
Form4.Left:=Form2.Left+((form2.Widt h div 2)+50);
Form4.Top:=Form2.Top;
end;
if abs(Form4.Left+Form4.Width-Form2.Left)<300 then //право
begin
Form4.Left:=Form2.Left-((form4.Width div 2)+50);
Form4.Top:=Form2.Top;
end;
end;
except
end;
end;

[Глеб1991]

эта штука на второй форме


procedure TForm3.WMMove(var Msg: TWMMove);
begin
try
if Assigned(Form2) then
begin
if abs(Form2.Left+Form2.Width-Form3.Left)<300 then //право
begin
Form2.Left:=Form3.Left-((form2.Width div 2)+50);
Form2.Top:=Form3.Top;
end;
if abs(Form3.Left+Form3.Width-Form2.Left)<300 then //лево
begin
Form2.Left:=Form3.Left+((form3.Widt h div 2)+50);
Form2.Top:=Form3.Top;
end;
end;
if Assigned(Form4) then
if abs(Form3.Left+Form3.Width-Form4.Left)<300 then //лево
begin
Form4.Left:=Form3.Left+((form3.Widt h div 2)+50);
Form4.Top:=Form3.Top;
end;
if abs(Form4.Left+Form4.Width-Form3.Left)<300 then //право
begin
Form4.Left:=Form3.Left-((form4.Width div 2)+50);
Form4.Top:=Form3.Top;
end;
except
end;
end;

[Глеб1991]

эта фигня на последней- третей

procedure TForm4.WMMove(var Msg: TWMMove);
begin
try
if Assigned(Form2) then
begin
if abs(Form4.Left+Form4.Width-Form2.Left)<240 then //лево
begin
Form2.Left:=Form4.Left+((form4.Widt h div 2)+50);
Form2.Top:=Form4.Top;
end;
if abs(Form2.Left+Form2.Width-Form4.Left)<240 then //право
begin
Form2.Left:=Form4.Left-((form2.Width div 2)+50);
Form2.Top:=Form4.Top;
end;
end;

if Assigned(Form3) then
begin
if abs(Form3.Left+Form3.Width-Form4.Left)<240 then //право
begin
Form3.Left:=Form4.Left-((form3.Width div 2)+50);
Form3.Top:=Form4.Top;
end;
if abs(Form4.Left+Form4.Width-Form3.Left)<240 then //лево
begin
Form3.Left:=Form4.Left+((form4.Widt h div 2)+50);
Form3.Top:=Form4.Top;
end;
end;
except
end;
end;

[Глеб1991]

Народ, тема еще актуальна - помогите по этой проблеме, я в долгу не останусь

[Igor[Игорь]]

Igor23dec@yandex.ru
ICQ 2168364