当前位置：文江博客话题详情

Delphi button maximize

如何禁用delphi程序中的最大化按钮？

发布于 2024-08-23 07:23:21 字数 27 浏览 11 评论 0原文

如何禁用delphi程序中的最大化按钮？

收藏 0

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

评论（3）

我的黑色迷你裙 2024-08-30 07:23:21

哦！我在对象检查器“BorderIcons”中找到
只需将 biMaximize 从 true 设置为 false 即可！

回复收藏 0 原文

凝望流年 2024-08-30 07:23:21

如果您只想使用代码来完成此操作，这里还有另一个技巧。

procedure TForm1.FormCreate(Sender: TObject);
var
  l: DWORD;
begin

  // hide minimize and maximise buttons
  l := GetWindowLong(Self.Handle, GWL_STYLE);
  l := l and not(WS_MINIMIZEBOX);
  l := l and not(WS_MAXIMIZEBOX);
  l := SetWindowLong(Self.Handle, GWL_STYLE, l);

end;

Here is another trick if you want to do it using code only.

procedure TForm1.FormCreate(Sender: TObject);
var
  l: DWORD;
begin

  // hide minimize and maximise buttons
  l := GetWindowLong(Self.Handle, GWL_STYLE);
  l := l and not(WS_MINIMIZEBOX);
  l := l and not(WS_MAXIMIZEBOX);
  l := SetWindowLong(Self.Handle, GWL_STYLE, l);

end;

回复收藏 0 原文

梦醒时光 2024-08-30 07:23:21

BorderIcons := BorderIcons - [biMaximize]

回复收藏 0 原文

~没有更多了~

关于作者

暂无简介

0 文章

0 评论

24 人气

关注发私信

相关话题

热门标签

操作系统程序设计 IT运维 Linux系统管理 JavaScript 服务器应用 solaris C/C++ PHP Shell BSD Vue.js aix Oracle Python HTML 系统管理 HTML5 CSS 前端

推荐作者

苦中寻乐

文章 0 评论 0

lueluelue

文章 0 评论 0

嗼ふ静

文章 0 评论 0

王权女流氓

文章 0 评论 0

与花如笺

文章 0 评论 0

残酷

文章 0 评论 0

友情链接

我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的隐私政策了解更多相关信息。单击 接受 或继续使用网站，即表示您同意使用 Cookies 和您的相关数据。

原文