在发生错误时检测Delphi Button组件中的MouseUp

Question

我用Delphi做了一个按钮组件，并在我的按钮鼠标事件中写了一个有错误的代码(strtoint('a');)。当我单击按钮时，出现一条错误消息，按钮状态保持按下状态。TSpeedButton也有同样的问题，但TButton没有这个问题(我认为这是因为它是一个标准的windows控件)。有什么代码可以添加到我的按钮组件中来消除这个bug吗？

Answer 1

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