MouseDownについて (ID:150412)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Delphi7です。 TSpeedButton のMouseDownのイベント中に 1..ShowMessage('###'); を入れると[OK]を押したあとボタンはDownのままですが、 2.Form1.Caption:='###'; だと、ボタンはDownのあと。すぐにUpにもどります。 1.のケースで[OK]を押した後、ボタンをUpにもどす方法はありませんか。