Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Авг

Перетаскивание формы вручную

Posted by micher under Delphi

_PROGRAMM_

У меня есть форма c BorderStyle:=None, мне нужно сделать возможность перетягивания формы за черную полоску вверху(Rectangle(0,0,Width,10)).

tsar_

Вот две процедуры:



//процедура перетаскивания

procedure TForm1.move;

begin

 ReleaseCapture; //освобождаем захват мыши

 //перенаправляем его в заголовок

 SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);

end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

 //если курсор в нужной области, то форма двигается

 if Y<10 then move; //этого достаточно

end;

тема на форуме