Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от Qb1024

Сделай обработку на нажатии мышкой по объекту и меняй координаты формы вслед за движениями мышью.

думал уже об этом, а по другому никак?

вот что у меня получилось:

Код:

procedure TForm1.Image4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
kod:tpoint ;
begin
  getcursorpos(kod);
form1.left:=(kod.X);
form1.Top:=(kod.Y);
end;

форма просто перепрыгивает, а как сделать так чтобы она перетаскивалась?

Ответ найден. выход из положения:
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);