• Registered: 2017-05-30
  • Posts: 254

Topic: Управление максимизацией окна

Свойство окна Position в режиме разработчика установлен в poDesigned.
Все BorderIcons и Sizeable установлены в False.
При открытии окна скриптом делаю его максимальным Frm_1.WindowState := wsMaximized; //Windows Maximized
По идее, изменить размер окна из максимального в какой-то другой размер у пользователя нет.
Он может только закрыть форму кнопкой сохранения формы.
Однако, если сделать двойной клик по верхней панельке формы (т.е. на той панели, где отображается Caption формы и где никаких BorderIcons нет, потому что они в False), то форма изменяет свой размер и устанавливается в размер, заданный при разработке.
Каким образом предотвратить такое поведение формы, т.е. не дать ей изменять размер из максимального?

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,536

Re: Управление максимизацией окна

Как говорится, нет заголовка - нет проблемы )))

BorderStyle := bsNone
Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Управление максимизацией окна

Попробуйте так

procedure Form1_OnResize (Sender: TObject);
begin
    Form1.Width := Screen.Width;
    Form1.Height := Screen.Height;
end;

при этом Frm_1.WindowState := wsMaximized; можете не использовать

Dmitry.