如何在 Delphi 的 TGridPanel 的单元格中添加填充？答案

【问题标题】：How to add padding in a cell of a TGridPanel in Delphi?如何在 Delphi 的 TGridPanel 的单元格中添加填充？
【发布时间】：2021-12-16 02:05:15
【问题描述】：

我创建了一个 Delphi 10.4 VCL 测试程序。在表单上，我创建了一个单行多列的 TGridPanel，并在第 0 列放置了一个 TSpeedButton。第 0 列的属性是：

SizeStyle: ssAuto
Value: 50

TSpeedButton 的一些属性是：

Align: alClient
Anchors: all false
Margins: all 20
Width: 105
Height: 71

如您所见，我为按钮的所有 4 个方向添加了边距 20。但我在结果中看不到边距。

如何在按钮和网格单元格之间添加一些空间？您可以在https://www.mediafire.com/file/x65ankhk17c7xk0/test1.rar/file 下载项目源代码。谢谢。

【问题讨论】：

【解决方案1】：

如果您希望 VCL 尊重您的 Margins，您需要将 AlignWithMargins 设置为 True。

如果您阅读了Margins 上的文档，您可能已经意识到这一点：

注意：您为控件设置的Margins只有在AlignWithMargins设置为true且Align未设置为alNone时才有效。

【讨论】：