按钮组项目被按下，不能点击更多的时间

buttongroup item is pressed and cant click more time

在 Delphi 中，我的表单中有一个 buttongroup，我在上面以编程方式创建了 10 个按钮项。

当我点击第 3 个按钮时，它执行 showmessage 或任何其他指向的功能。

喜欢这个示例代码

procedure TForm2.ButtonGroup1ButtonClicked(Sender: TObject; Index: Integer);
begin
  showmessage( Index.ToString );
end;

但是当我再次点击第 3 个按钮时，它什么也没做，看起来像是按下了...

我尝试设置 intemindex 或 refresh 或 repaint 或 realign。但没有任何效果！

我该如何解决这个问题！？这是缓冲选项吗？！

您可以通过将 ButtonOptions 中的 gboGroupStyle 属性 设置为 假

在 rad studio,berlin

中测试