delphi - 如何控制窗口的边框大小？

Question

我有一些使用绝对定位的表单，而 Win7 添加到“ handle ”中以增强半透明度的额外像素正在搞乱控件。我想把它们带回来。我尝试在此处的答案之一中使用代码:

Can you make a Borderless Application Main Window in Windows, without WS_POPUP style?

具体来说，GolezTrol 通过调用 SetWindowRgn 在 ShowForm 中利用覆盖提供了答案。代码的行为在 W7 下与 XP 下有点不同，无论如何我都无法获得我想要的效果。

对于 XP 中的标准 TForm，数量 Width-ClientWidth = 8，而在 Win7 中为 16。我想要回这 8 个像素。尽管宽度更重要，但我也希望高度像素能够恢复。

Answer 1

我认为依赖表单的边框宽度是非常糟糕的做法，尤其是，因为最终用户可以在控制面板中更改它!您可以使用 ClientWidth 属性来代替 Width。将前者设置为您喜欢的任何值，后者将被计算。