ボタンを押し続けて数値を連続変化するには。 (ID:33629)

名前

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

本文 皆様よろしくお願いいたします。 環境はWindowsXP Delphi6 Personalです。 TrackBarは使えない事情があります。 音量を大きくしたり小さくしたりするのをボタンでやりたいのですが よく見る「ボタンを押し続けると連続して数値が増減する」には どのようにすればいいのでしょうか。 いまは、下記のようにいちいちクリックを繰り返さないと変化しません。 よろしくご指導下さい。 procedure TForm1.VolumeUpMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MasterVolume := MasterVolume +1;//増大 end; ・・・・・ MasterVolume := MasterVolume -1;//減少