我有RadioGroup有很多按钮。现在,当我添加一个项目时,它们会变得越来越小。怎么可以让它们滚动?
答案 0 :(得分:3)
TRadioGroup
本身不支持滚动。但是,您可以做的是:
在您的用户界面上放置TGroupBox
。
将TScrollBox
放置在TGroupBox
上,将其Align
属性设置为alClient
,将其BorderStyle
属性设置为bsNone
将TRadioGroup
放在TScrollBox
上,清除其Caption
属性,并将其Left
属性设置为-2
及其{{1} } {}为Top
的属性(或-15
设置为加上一些额外像素的任何内容)。需要进行此定位是因为您无法关闭TRadioGroup.Font
的边框或为其TRadioGroup
保留的空间。
调整Caption
和TScrollBox.HorzScrollBar.Range
属性,使其无法滚动到足以看到TScrollBox.VertScrollBar.Range
的右下边框。
这样,按钮看起来好像是TRadioGroup
的一部分,但是添加了滚动条。
答案 1 :(得分:2)
RadioGroup->Items->Count
TRadioGroup
组件没有嵌入式滚动条,但您可以将广播组放在TScrollBox
上以获得类似效果。
您可以使用Buttons
集合来引用每个按钮,例如
RadioGroup->Buttons[0]->Height = 5;
RadioGroup->Buttons[1]->Top = RadioGroup->Buttons[0]->Top + 10;
无论如何,TComboBox
也是一个不错的选择。