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

How in Delphi 10.4.2 show vertical separator lines in a TGridPanel that has a group of TRadioButton in its columns

我有一个有 6 列的 TGridPanel(作为示例)。在每一列中都有一个 TRadiobutton。一组中的所有五个 TradioButton。通过这种方式,五个 TRadioButton 可以按预期工作,同时只能检查其中一个。 为了在列之间添加垂直分隔符,在添加 TRadioButton 之前,我添加了四个 TPanel(在实际代码 TStackPanel 中),然后我向每个 TPanel 插入一个 TRadioButton,然后适当配置面板的 BevelEdges,以显示垂直线。但是现在,正如预期的那样,每个 TRadioButton 单独行动,因为它们的父级已从一个唯一的 TGridPanel 更改为 5 个独立的 TPanel。 请帮我设置两个垂直分隔符(在 TGridPanel 中),并使 TRadioButtons 充当一个组。 提前问好

您可以为每个垂直分隔符执行以下操作:

  1. 添加一列到GridPanel.ColumnCollection 具有属性 SizeStyle=ssAbsoluteValue=5 (以像素为单位的列宽)。

  2. 在此新列中插入一个 TPanel 具有属性 Align=alClientRow=0RowSpan=2Color=clBtnShadowBevelOuter=bvNone.