buttongroup项目被按下，无法点击更多时间

Question

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

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

喜欢此示例代码

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

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

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

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

Answer 1

您可以通过将gboGroupStyle中的ButtonOptions属性设置为，来更改此设置 假

在rad studio,berlin

中测试