マウスが動かずにボタンがまだ押されていることを検出するにはどうすればよいですか？

Question

Delphiでは、フォームの右側にスクロールバーコンポーネント（縦向き）を追加しました。

ユーザーがマウスでUpArrowまたはDownArrowボタンをクリックしたときにフォームのビューとスクロールバーのサムの位置を変更できるように、Scrollbar OnChangeイベントを追加しました。

しかし、OnChangeイベントは、矢印上でマウスボタンを最初に押すとトリガされるように見えます。

すべてのスクロールバーコントロールは、マウスを矢印の上に押したまま、コマンドを繰り返してスクロールを続けることに気付きました。この動作を実装したいと思います。

したがって、マウスが矢印の上にとどまっている間にユーザーがマウスを移動してマウスボタンを押し続けているかどうかを簡単に検出できますか？

---

結論。どういうわけか私のプロジェクトのスクロールバーの何かが壊れてしまった。 ScrollBarを削除してもう一度追加した後、問題はなくなりました。

これは私が解決するのに多くの時間を要した難しい問題の1つです。ご協力いただきありがとうございます。私はこの質問を閉じます。

Answer 1

OnScrollイベントを使用してください。

次のコードは、マウスがスクロールバーの矢印ボタンを押している間は、メモに 'xxx'を追加します。デルファイ6.

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; 
    var ScrollPos: Integer); 
begin 
    Memo1.Lines.Add('xxx'); 
end; 

Answer 2

自動繰り返しがTTIMERを有効にして、アクションを再実行する必要があるかどうかのOnTimer（）イベントハンドラでチェックし、無効にすることです処理する通常の方法でテストタイマーではない場合サンプルコードが必要な場合は、SynEditコントロールで、ドラッグアンドドロップ操作の自動スクロールに同様の手法を使用したことを覚えているようです。

Answer 3

コンポーネントが探しているビヘイビアをカプセル化せず、利用可能なメソッドでビヘイビアーを簡単にシミュレートできない場合は、必要なもののほとんどを実行する最も近いコンポーネントを実際にサブクラス化し、 。

私はいくつか余分な仕事が関わっていることを知っていますが、実際にはより良い方法です。今Delphiで、私はサブクラス化コンポーネントは、余分な作業のビットだけでなく、フォーム設計用のIDEから使用することができるようにするために必要なことを思い出しているようだ、多分これはバージョン7