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

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

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

26th
Мар

Как запретить передвижение окна?

Posted by maloy under Delphi, Архив

Nester

Необходимо блокировать (по флажку переменная true-false)
возможность предвигать форму -тоесть при попытке её переместить она
оставалась на том же месте

Kotofff

Сначала в секции private объявляем процедуру :

Код:

private
   procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;

данным кодом привлекаем в свое приложение системного обработчика передвижения и клика мышкой.
И затем обрабатываем клик мышкой на нашей форме :

Код:

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;// позволяем обработчику поработать по-умолчанию
  with Message do
// здесь "дурим" его отвечая на нажатие мышки по заголовки, что клика вообще не было.
   if Result = HTCAPTION then Result := HTNOWHERE;
end;

Я думаю, что тебе будет не трудно прикрутить данный код к своей задаче.

тема на форуме от 2009 года