Не хочу, чтобы форма свернулась

Question

Можно ли запретить сворачивание формы \ приложения в Delphi?

Я нашел следующий код:

procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
begin
  if not Msg.Show then
    Msg.Result := 0
  else
    inherited;
end;

Но если я нажму клавишу Windows + M или WindowsKey + D, то она все равно будет свернута Есть ли способ предотвратить это?

Answer 1

Установка BorderIcons.bsMinimized в false (удаление его из набора) будет работать для WindowsKey + M, но не остановит WindowsKey + D. Я думаю, что это имеет смысл. Разница между ними заключается в том, что первое задает минимизацию всех окон, а второе - явный запрос пользователя на просмотр своего рабочего стола. Переопределение последнего, вероятно, раздражает пользователя (похоже на то, чтобы заставить себя сфокусироваться).

Answer 2

или вы можете поставить клавиатуру и поймать winkey + d или winkey + m и держать форму максимально развернутой.

Answer 3

Просто введите в форму onShow событие такого кода:

  WindowState:=wsMaximized;

и OnCanResize это:

  if (newwidth<width) and (newheight<height) then
    Resize:=false;