слипание форм

[Глеб1991]

Добрый день.

Помогите мне в трех соснах разобраться. У меня в проге 3 формы - эти три формы должны слипаться по центру друг с другом если одна находиться на расстоянии 50пик. т.е. есть одну форму подвести к другой то она склеиться по центру первой формы и их можно спокойно(не быстро) двигать по монитору, тогда они не расклеятся - это все просто, я сделал, но вот есть 3 форма и нужно сделать проверку не склеены ли уже две первые. Проверку сделать не могу, уже крыша едет от этого - просто, а не получается у меня во что - если подвести 3-ю форму к уже созданной склейки то она затирает одну из 1-ых двух собой.

Нужно сделать проверку на уже сущ. склейку и добавить туда куда нужно

procedure TForm1.WMMove(var Msg: TWMMove);
begin
if Assigned(Form2) then
  begin
    if abs(Form1.Left+Form1.Width-Form2.Left)<75 then //влево
     begin
      Form2.Left:=Form1.Left+(Form1.Width div 2);
      Form2.Top:=Form1.Top;
     end;
    if abs(Form2.Left+Form2.Width-Form1.Left)<75 then    //вправо
     begin
      Form2.Left:=Form1.Left-Form2.Width;
      Form2.Top:=Form1.Top;
     end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.Show;
end;

 
procedure TForm2.WMMove(var Msg: TWMMove);
begin
if abs(Form1.Left+Form1.Width-Form2.Left)<75 then   //вправо
  begin
    Form1.Left:=Form2.Left-Form1.Width;
    Form1.Top:=Form2.Top;
  end;
if abs(Form2.Left+Form2.Width-Form1.Left)<75 then //влево
  begin
    Form1.Left:=Form2.Left+(form2.Width div 2);
    Form1.Top:=Form2.Top;
  end;
end;

procedure TForm3.WMMove(var Msg: TWMMove);
    begin
     if abs(Form3.Left+Form3.Width-Form1.Left)<75 then //лево
      begin
       Form1.Left:=Form3.Left+(Form3.Width div 2);
       Form1.Top:=Form3.Top;
      end;
     if abs(Form1.Left+Form1.Width-Form3.Left)<75 then    //право
      begin
       Form1.Left:=Form3.Left-Form1.Width;
       Form1.Top:=Form3.Top;
      end;

    if abs(Form2.Left+Form2.Width-Form3.Left)<75 then   //право
     begin
      Form2.Left:=Form3.Left-Form2.Width;
      Form2.Top:=Form3.Top;
     end;
    if abs(Form3.Left+Form3.Width-Form2.Left)<75 then //лево
     begin
      Form2.Left:=Form3.Left+(form3.Width div 2);
      Form2.Top:=Form3.Top;
     end;
     end;

[evg_m]

вот держи пример (склеивает произвольное число форм, но только слева).
Демонстрация примера.
1 запускаем программу.
2. создаем любое число форм (столько раз нажимаем кнопку)
3. выстраиваем их слева направо с отступами.
4. берем самую правую и начинаем двигать влево.
5. "нанизали" теперь можно таскать как угодно.
6. разбор не предусмотрен.

[Глеб1991]

evg_m - спс. сейчас посмотрю

[Глеб1991]

evg_m - сожалею, но это и рядом не стоит с моей задачкой