【发布时间】：2009-08-12 11:54:27
【问题描述】：
如何创建带有关闭按钮但没有图标的第二个表单。
【问题讨论】：
标签： delphi delphi-2009 vcl
【发布时间】：2009-08-12 11:54:27
【问题描述】：
将表单的 BorderStyle 设置为 bsDialog。
【讨论】：
-
那么边框太小了。
-
你也可以从 BorderIcons 中移除 biMinimize 和 biMaximize
将表单的 BorderStyle 设置为 bsDialog 并在创建表单时使用此代码，
SetWindowLong(Handle,gwl_style,GetWindowLong(handle,gwl_style) or WS_THICKFRAME);
ClientHeight := Height;
Refresh;
我认为这是一个丑陋的 hack，但你可能会觉得没问题。
【讨论】：
-
我会接受它，因为它是一个很好的选择，但是关闭按钮看起来不像窗口的边界是 bsSizeable。我正在为我的表单设置皮肤，这就是问题所在。但是谢谢！
恐怕你不能用其他方式来做，除了试验 BorderStyle 属性，因为这是由 VCL 在内部完成的。
【讨论】：