[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

25.04.2010, 23:10

heretic1990

Постоянный

Регистрация: 02.07.2008

Сообщений: 472

Провел на форуме:
3728999

Репутация: 444

Цитата:

Сообщение от 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);

Последний раз редактировалось heretic1990; 25.04.2010 в 23:52..