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 充当一个组。
提前问好
您可以为每个垂直分隔符执行以下操作:
添加一列到GridPanel.ColumnCollection
具有属性 SizeStyle=ssAbsolute
和 Value=5
(以像素为单位的列宽)。
在此新列中插入一个 TPanel
具有属性 Align=alClient
、Row=0
、RowSpan=2
、
Color=clBtnShadow
和 BevelOuter=bvNone
.
我有一个有 6 列的 TGridPanel(作为示例)。在每一列中都有一个 TRadiobutton。一组中的所有五个 TradioButton。通过这种方式,五个 TRadioButton 可以按预期工作,同时只能检查其中一个。 为了在列之间添加垂直分隔符,在添加 TRadioButton 之前,我添加了四个 TPanel(在实际代码 TStackPanel 中),然后我向每个 TPanel 插入一个 TRadioButton,然后适当配置面板的 BevelEdges,以显示垂直线。但是现在,正如预期的那样,每个 TRadioButton 单独行动,因为它们的父级已从一个唯一的 TGridPanel 更改为 5 个独立的 TPanel。 请帮我设置两个垂直分隔符(在 TGridPanel 中),并使 TRadioButtons 充当一个组。 提前问好
您可以为每个垂直分隔符执行以下操作:
添加一列到
GridPanel.ColumnCollection
具有属性SizeStyle=ssAbsolute
和Value=5
(以像素为单位的列宽)。在此新列中插入一个
TPanel
具有属性Align=alClient
、Row=0
、RowSpan=2
、Color=clBtnShadow
和BevelOuter=bvNone
.