Как остановить пользователя от изменения размера формы

Question

Я создал свой проект для порции в части формы. Я отключил кнопки в верхней правой части формы (извиняюсь, поскольку не знаю его технического названия). Я хотел бы также отключить пользователя от настройки размера с помощью курсора. Это возможно через код в delphi?

Answer 1

Установите для свойства BorderStyle формы значение bsSingle; если это не динамически генерируемая форма, вы можете сделать это с помощью инспектора объектов. Также я понимаю, что вы уже удалили biMaximize из BorderIcons (следовательно, вы удалили кнопку заголовка максимизировать ).

Теперь я предполагаю, что это основная форма вашего приложения. Если, с другой стороны, это диалоговое окно, отображаемое при вызове пункта меню (например), вам следует вместо этого установить BorderStyle в bsDialog. Такие формы также не могут быть изменены, и у них нет кнопок максимизации или минимизации заголовка).

Answer 2

Выполните следующие действия:

1. Установите формы BorderIcons.biMinimize = false и BorderIcons.biMaximize = false. (Как я думаю, у вас уже есть)
2. Назначьте обработчик события для события формы OnCanResize и закодируйте его следующим образом:

.

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

Это не позволяет пользователю изменять размер формы с помощью мыши, в то время как форма все еще имеет вид нормальной формы.