Пристыковка Окон

[OrdJONY]

Помогите как сделать чтобы окна пристыковать... и потом при движении одного двигалось и второе...
С движением то понятно, там условие и переменная... Ну вот только как включить Эту переменную при пристыковке окна

[Сильванович Михаил]

Проверяешь расстояние от одного окна до другого при перетаскивании, если окно отпускается не больше чем за 7 пикселей от стыкуемого окна (учитываются размеры окон, конечно, а расстояние - длина вектора). А когда хватаешь
стыкованные - проверка если касаются, то стыкованы и тащишь оба окна, если
нет, то тащим свое окно.

З.Ы. Надеюсь понятно...

[OrdJONY]

Попробывал я так вот

  If Form2.Left <= PosLeftDr2 then
        If Form2.Left >= PosLeftDr1 then
    Form2.Left := PosLeftDr1

PosLeftDr1 сюда я присвоил положение 1 формы + размер
PosLeftDr2 а сюда значение PosLeftRd1 + 7.
Когда Окно приближаеш оно то состыковываеться, но вот потом назад не отходит никак.. Срабатывает Это условие... Как тогда сделать чтобы их разъединять можно было

[Сильванович Михаил]

Вспомним, как это сделано в Winamp:
Все доп. окна можно пристыковать к главному окну, но по отдельности
отнего можно оторвать каждое.
Так и делаем - если тащат за главное окно,
то расстыковки не происходит, тащат доп. окно - происходит расстыкова.

[Romanus]

2OrdJONY А зачем тебе Win32 API сделали.
В private формы кидай процедуру

procedure FormMoves(var Msg:TWMMOVE);message WM_MOVE;

и в разделе реализации в процедуре

procedure TForm1.FormMoves(var Msg:TWMMOVE);
begin
Form2.Left:=Form1.Left+Form1.Width;
Form2.Top:=Form1.Top;
end;

[OrdJONY]

Чето я пробовал, выбивает ошибку. Да вот мне и надо как в винампе

[Сильванович Михаил]

выложи исходник - посмотрю - может подправлю...

[OrdJONY]

procedure TF_PlayList.Fpl_Move_Move(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var
  PosLeftDr1, PosTopDr1 : integer;
  PosLeftDr2, PosTopDr2 : integer;
begin
  PosLeftDr1 := PosLeft + F_Main.Width;
  PosTopDr1  := PosTop  + F_Main.Height;
  PosLeftDr2 := PosLeftDr2 + 7;
  PosTopDr2  := PosTopDr2  + 7;
  if flgPlMove then
    With F_PlayList do Begin
      Left := Left + x - PosLfPL;
      Top  := Top  + y - PosTpPL;
      end;
  If (F_PlayList.Left <= PosLeftDr2) or
        (F_PlayList.Left >= PosLeftDr1) or
        (flgDockPL = False) then Begin
    flgDockPL := True;
    F_PlayList.Left := PosLeftDr1
    end;
end;

[Сильванович Михаил]

Вот. Вроде стыкуются, механизм оставляет желать лучшего - но доработать можно. (выглядит плохо)

[OrdJONY]

Спасибо Огромное за Код! Все работает!