Блокировка 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 года

Похожие статьи

• Удалить лишнее слева и справа от конкретных символов (Microsoft Office Excel)
• Как запретить передвижение окна?
• Как можно перерисовать ListView в режиме иконок после изменения размеров в режиме vsIcon?
• Область заголовка окна