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

made in programmersforum 3

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

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

26th
Дек

Блокировка Form move/resize

Posted by maloy under Delphi, Архив

Alex_C

Суть проблемы:
программа состоит из нескольких форм.
Пользователь попросил реализовать ф-цию блокировки изменения размеров/перемещения форм (чтоб случайно не сдвинуть).
Вот стоит проблема — как реализовать эту ф-цию сразу для всех открытых окон?

14:20

Да хотелось бы сказать, что про

Код:

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
with Message do
begin
if Result = HTCAPTION then
Result := 0;
end;
end;

я знаю, но интересно, можно ли у всех форм реализовать это не прописывая отдельно для каждой вормы эту процедуру?

mihali4

procedure TForm1.FormCanResize(Sender: TObject;var NewWidth,   NewHeight: Integer; var Resize: Boolean);

begin

Resize:=False;

end

pu4koff

Для запрета изменения размера проще установить у формы BorderStyle в bsSingle какой-нибудь.
Для запрета перемещения вот наверно только отлов WM_NCHitTest.
Чтобы не дублировать этот код для нескольких форм, попробуйте просто создать класс наследник от TForm с запретом изменения размера/положения, а все остальные формы просто наследуйте не от TForm, а от вашего класса.

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