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

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

Незачто - он был с ошибками. Вот без них:

[OrdJONY]

Я вот немогу понять... почему вы используете именно WinAPI? В программе то у меня передвижение будет делаться панелькой
Я вот делал так:

procedure TF_Main.FMove_Down(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PosLeft := X;
  PosTop  := Y;
  flgMouseMove := True;
end;
procedure TF_Main.FMove_Move(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if flgMouseMove then
    With F_Main do Begin
      Left := Left + x - PosLeft;
      Top  := Top  + y - PosTop;
      end;
end;
procedure TF_Main.FMove_Up(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  flgMouseMove := False;
  PosLeft := F_Main.Left;
  PosTop  := F_Main.Top;
end;

или не правильно?

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

Я WinAPI использовал только для того, чтобы программно ортпустить левую кнопку мыши - иначе появятся визуальные проблемы.
А WM_MOVE т.к. у VCL-формы изначально такого св-ва нету.

Если передвижение осуществляется панелькой, вы все равно сталкнетесь, мне кажется, с некоторыми визуальными проблемами, возникающими непосредственно при стыковке. (у меня форма маталась туда-сюда пока не отпускал левую кнопку мыши).

А код, который вы представили в предыдущем посте - код перетаскивания формы, как я понял, а не стыковки.

З.Ы. Надеюсь я вас правильно понял.

[OrdJONY]

Да это код просто перетаскивания... Визуальные трудности имеються, а как быть если позже я панельку заменю Картинкой. В винампе визуально то все нормально перетаскиваеться и стыкуеться

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

Я тут еще доработал свой код - без визуальных проблем.
Если заменишь на картинку ничего не произойдет, но если натянут
регион на форму, то размеры надо брать не формы, а региона, если не
ошибаюсь.

[OrdJONY]

Попробовал последний кодик, но только добавил на форму картинку и на нее передвижение. Все стыкуеться. ВОт только после стыковки форму больше двигать нельзя. Надо мышу отжимать
Но так ОГРОМНОЕ СПАСИБО!!!