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

问题描述

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

解决方法

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

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

2. 在这个新列中插入一个 TPanel 具有属性 Align=alClient、Row=0、RowSpan=2、 Color=clBtnShadow 和 BevelOuter=bvNone。