delphi - 压平 TSpeedButton？

Question

有没有办法强制TSpeedButton重新绘制平坦？

使用触摸屏显示器时，鼠标不会移出按钮，因此即使您单击其他按钮，凸起的边框也会保留在屏幕上。

Answer 1

看起来这不是我可以在没有触摸屏的情况下重现的东西，但如果我理解正确的话，当有人触摸按钮时，它就会变热(如果 Down 为 true，则它会上升，或者突出显示)，但是当他们触摸另一个按钮时，它不会触发鼠标退出，因此它会保持热状态。这是正确的吗？

有几种方法可以解决这个问题。最简单的可能是在每个点击事件上调用一个将鼠标从按钮上移开的方法。

Mouse.CursorPos := Point(0,0);

如果这还不够，那么您可以禁用单击的按钮，将鼠标移开，刷新它，然后重新启用它。 禁用的按钮不可能很热。您可能需要一个计时器，在鼠标移开按钮被禁用一秒钟后启用该按钮，但我敢打赌，只需移动鼠标就足够了.

此外，当鼠标光标停留在我刚刚触摸的按钮上时，我一直认为这是奶酪，所以这将使您的触摸系统看起来更优雅。