TrackBarをMouseUpした時のイベント取得 (ID:41003)

名前

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

本文 TTrackBarやTScrollBarを継承してMouseUpイベントをpublicなりpublishedなりにして使うのがまっとうな方法だと思いますが、OnChangeイベント中でマウスの左ボタンが押されているかを判定して押されていなかったら計算処理を行うという簡易な方法もあります。 procedure TForm1.TrackBar1Change(Sender: TObject); begin if not(BOOL(Hi(GetAsyncKeyState(VK_LBUTTON)))) then begin //計算＋結果表示 end; end; OnChangeイベントはトラックバーのつまみを放した時にも(2回)起きるのでこれでいけます。 TScrollBarの場合はOnChangeイベントではなくOnScrollイベントがTrackBarのOnChangeイベントと同じ動作になるようです。 ちなみにつまみをの部分を触って放した時は2回、それ以外の場所を触って放した時は1回とイベントの起きる回数が違っています。 TScrollBarのOnChangeイベントはマウスボタンを離した時には起きませんでした。