radio-button - 如何在 Delphi 10.4.2 中显示 TGridPanel 中的垂直分隔线，该 TGridPanel 在其列中有一组 TRadioButton

Question

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

Answer 1

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

1. GridPanel.ColumnCollection 使用属性SizeStyle=ssAbsolute和Value=5 （以像素为单位的列宽）添加一列。

2. TPanel使用 Properties Align=alClient、Row=0、RowSpan=2和 将 a插入此新Color=clBtnShadow列BevelOuter=bvNone。