delphi - エラーが発生したときにDelphiボタンコンポーネントでMouseUpを検出する

Question

Delphiでボタンコンポーネントを作成し、ボタンのmouseupイベントでエラー（strtoint（'a'）;）のコードを記述しました。ボタンをクリックすると、エラーメッセージが表示され、ボタンの状態が押されたままになります。TSpeedButtonにも同じ問題がありますが、TButtonにはこの問題はありません（標準のWindowsコントロールであるためだと思います）。このバグを取り除くためにボタンコンポーネントに追加するコードはありますか？

Answer 1

問題が見つかりました。WM_KILLFOCUSメッセージプロシージャで、ボタンを通常の状態に復元するコードを追加する必要があります。