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

[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.FormCreate(Sender: TObject);
begin
Constraints.MaxHeight:=400;
Constraints.MinHeight:=400;
Constraints.MaxWidth:=600;
Constraints.MinWidth:=600;
end;

Или проще:

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

[pu4koff]

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