如果Delphi TSpeedButton是该组中唯一的一个,它将如何保持按下状态

Question

我不确定为什么TSpeedButton具有此属性,但是当TSpeedButton是给定groupindex的唯一按钮时,无论是否按下"AllowAllUp",它都不会保持按下状态.也许绝地控制就足够了,但希望有一些解决办法.任何帮助或轶事都表示赞赏.

顺便说一下,我(仍)使用Delphi 7,不确定这是否是一个全面的难题.

Answer 1

我这里没有D7,但是在D2006中,如果GroupIndex的值> 0,则Speedbutton会保持不变.

如果这不是您希望的行为,您可以在OnClick-Eventhandler中手动设置Down属性(确保GroupIndex为0).

Answer 2

我刚刚在Delphi 7(Build 4.453)中尝试过:

• 创建新的应用程序
• 添加TSpeedButton到表单
• 组 AllowAllUp := true;
• 组 GroupIndex := 1;
• 运行应用程序

单击按钮时,它会切换其向下状态,而不需要任何其他代码.