不希望表单最小化
是否可以禁止在 Delphi 中最小化表单\应用程序？
我找到了以下代码：
procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
begin
if not Msg.Show then
Msg.Result := 0
else
inherited;
end;
但是如果我按 Windows 键 + M 或 WindowsKey + D，那么它仍然会最小化。 有办法防止这种情况吗？
Is it possible to disallow minimizing of a form\application in Delphi ?
I found the following code:
procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
begin
if not Msg.Show then
Msg.Result := 0
else
inherited;
end;
But if I press windows key + M or WindowsKey + D, then it still gets minimized.
Is there a way to prevent this?
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（3）
将 BorderIcons.bsMinimized 设置为 false（将其从集合中删除）适用于 WindowsKey + M，但不会停止 WindowsKey + D。我认为这是有道理的。 两者之间的区别在于，第一个是要求所有窗口最小化，而第二个是用户明确请求查看其桌面。 覆盖后者可能会惹恼用户（类似于强迫自己集中注意力）。
Setting BorderIcons.bsMinimized to false (removing it from the set) will work for WindowsKey + M but will not stop WindowsKey + D. I think that makes sense. The difference between the two is the first is asking all windows to minimize while the second is an explicit request by the user to see their desktop. Overriding the latter would probably annoy the user (similiar to forcing yourself into focus).
或者您可以放置一个键盘挂钩并抓住 winkey+d 或 winkey+m 并保持表单最大化。
or you can place a keyboard hook and catch winkey+d or winkey+m and keep your form maxmized.
只需将这样的代码放入表单 onShow 事件中：
并将以下代码放入 OnCanResize 中：
Just put to the form onShow event such code:
And to the OnCanResize this: