デルファイ - スクロールアップするためにマウスとその下にあるメッセージイベントダウン

Delphiは、マウスを上下にスクロールし、根本的なメッセージに対処するためにグラブを達成するために

数日前に顧客の需要として：による個人的なPCインターフェイスの制限に、不完全時々電子文書の表示、および電子画像ファイルのズームアウトを制御するために上下にスクロールするには、マウスを期待しています。

説明するデモにより、試験の後。

WinFrm新しいアプリケーション、以下に示すように、RzMemo、ApplicationEventsコントロールを追加します。

 

ApplicationEventsがonMessageのイベントを制御する追加次のように、キーコードは次のようになります。

1  手順 TForm1.ApplicationEvents1Message（VAR メッセージ：tagMSG;
 2    VAR 取扱：ブール値）;
 3  始める
。4    // マウスホイールイベントがRzMemo1に発生した場合
。5    IF（RzMemo1.Focused）及び（メッセージメッセージ WM_MOUSEWHEEL =）を、次いで
6    始める
。7      IF msg.wParam> 0は、 次に // 上ロール
8。     始める
9。        RzMemo1.Lines.Add（' スクロール+ +1 - ' + FormatDateTime（' YYYY-MM-DD HH：MM：SSのZZZ ' 、ここで（）））。
10      エンド
。11      他 // ローラ
12は     開始
13である        RzMemo1.Lines.Add（' ローラー-1 - ' + FormatDateTime（' YYYY-MM-DD HH：MM：SSのZZZ ' 、ここで（）））;
 14      の終了。
 15      取扱：=真; // メッセージが処理された
16    終了;
 17。 エンド ;

マウスが上下にスクロールするときは、次の営業成績は、関連のニュースがトリガー：

 

要約すると、我々はあなたが上下根底にあるメッセージのキャプチャと二次処理をスクロールするには、マウスに達成したいものを達成するためにビジネスロジックを追加し、二つの重要な判断を指すことができます。