不希望形式最小化

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.我认为这是有道理的.两者之间的区别是第一个是要求所有窗口最小化,而第二个是用户明确请求查看其桌面.覆盖后者可能会惹恼用户(类似于强迫自己集中注意力).