delphi - Firemonkey:TSpeedButton IsPressed 没有可见效果？

Question

如何将 TSpeedButton(在 TToolbar 上)设置为按下状态？它仅在单击时突出显示，但当鼠标离开它时变得正常。我将属性 Stayspressed 设置为 True，属性 IsPressed 确实变为并保持 True，但此状态不可见。

Answer 1

您使用什么风格？其中一些包含的效果并未包含所有效果。

首先，恢复到windows风格。如果有效，那么这绝对是样式问题，而不是代码问题。

如果您想向另一种样式添加效果(实际上是动画):

• 右键单击按钮并选择“编辑默认样式”。
• 找到要显示动画的矩形的 Fill.Color 属性。
• 单击动画图标并添加 TColorAnimation
• 设置:StartValue(现有值)。
• 止损值

• 触发器:IsPressed=True

• 重复上述操作，添加第二个动画，其中 Start 和 StopValues 颠倒，并且触发 IsPressed=False