我有许多按钮的RadioGroup。现在,当我添加一个项目时,它们变得越来越小。如何使其滚动?

最佳答案

TRadioGroup本机不支持滚动。但是,您可以执行以下操作:

  • 在您的UI上放置一个TGroupBox
  • TScrollBox上放置一个TGroupBox,将其Align属性设置为alClient,并将其BorderStyle属性设置为bsNone
  • TRadioGroup放置在TScrollBox上,清除其Caption属性,并将其Left属性设置为-2,将其Top属性设置为-15(或将TRadioGroup.Font设置为任何其他像素)。因为您无法关闭TRadioGroup的边框或为其Caption保留的空间,所以需要这种定位。
  • 调整TScrollBox.HorzScrollBar.RangeTScrollBox.VertScrollBar.Range属性,以使它们滚动的距离不足以看到TRadioGroup的右边界和底边界。

  • 这样,按钮看起来好像它们是TGroupBox的一部分,但带有添加的滚动条。

    08-18 06:27