如何在 Delphi 10.4.2 中显示 TGridPanel 中的垂直分隔线，该 TGridPanel 的列中有一组 TRadioButton答案

【问题标题】：How in Delphi 10.4.2 show vertical separator lines in a TGridPanel that has a group of TRadioButton in its columns如何在 Delphi 10.4.2 中显示 TGridPanel 中的垂直分隔线，该 TGridPanel 的列中有一组 TRadioButton
【发布时间】：2021-05-19 22:10:13
【问题描述】：

我有一个有 6 列的 TGridPanel（例如）。在每一列中都有一个 TRadiobutton。一组中的所有五个 TradioButton。这样，五个 TRAdioButtons 可以正常工作，同时只能检查其中一个。为了在列之间添加垂直分隔符，在添加 TRadioButtons 之前，我添加了四个 TPanels（在实际代码 TStackPanel 中），然后我在每个 TPanels 中插入了一个 TRAdioButton，然后适当地配置了面板的 BevelEdges，以显示垂直线。但现在，正如预期的那样，每个 TRAdioButton 都单独行动，因为它们的父级已从一个唯一的 TGridPanel 更改为 5 个独立的 TPanel。请帮助我同时拥有两个垂直分隔符（在 TGridPanel 中），并让 TRAdioButtons 充当一个组。提前致以最诚挚的问候

【问题讨论】：

嗨，为了快速解决问题，我为每个垂直分隔符添加了一列，并在其中插入了一个 TSplitter，然后将列宽设置为足以显示该分隔符的值。但我仍在寻找更好的解决方案。

标签： radio-button splitter tgridpanel delphi-10.4.2

【解决方案1】：

您可以对每个垂直分隔符执行以下操作：

给GridPanel.ColumnCollection添加一列带有属性SizeStyle=ssAbsolute 和Value=5 （以像素为单位的列宽）。
在此新列中插入 TPanel 带有属性Align=alClient、Row=0、RowSpan=2、 Color=clBtnShadow 和 BevelOuter=bvNone。

【讨论】：