delphi - 如何在 Delphi 的 TGridPanel 的单元格中添加填充？

Question

我创建了一个 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下载项目源。谢谢。

Answer 1

如果你想让 VCL 尊重你的Margins，你需要设置AlignWithMargins为True.

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

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