我有许多按钮的RadioGroup。现在,当我添加一个项目时,它们变得越来越小。如何使其滚动?
最佳答案
TRadioGroup
本机不支持滚动。但是,您可以执行以下操作:
TGroupBox
。 TScrollBox
上放置一个TGroupBox
,将其Align
属性设置为alClient
,并将其BorderStyle
属性设置为bsNone
。 TRadioGroup
放置在TScrollBox
上,清除其Caption
属性,并将其Left
属性设置为-2
,将其Top
属性设置为-15
(或将TRadioGroup.Font
设置为任何其他像素)。因为您无法关闭TRadioGroup
的边框或为其Caption
保留的空间,所以需要这种定位。 TScrollBox.HorzScrollBar.Range
和TScrollBox.VertScrollBar.Range
属性,以使它们滚动的距离不足以看到TRadioGroup
的右边界和底边界。 这样,按钮看起来好像它们是
TGroupBox
的一部分,但带有添加的滚动条。