发生错误时检测Delphi按钮组件中的MouseUp

Question

我在Delphi中创建了一个按钮组件，并在我的button mouseup事件中编写了一个带错误的代码（strtoint（'a'）;）。当我单击按钮时，会出现错误消息并且按下按钮状态。 TSpeedButton也有同样的问题，但TButton没有这个问题（我认为因为它是一个标准的Windows控件）。是否有任何代码可以添加到我的按钮组件中以删除此错误？

Answer 1

我发现了问题，我应该在WM_KILLFOCUS消息程序中添加将按钮恢复到正常状态的代码。