マウスホイール(マウスの真ん中のボタン)を押したらという処理を追加したい

解決

arigayas 2022-09-16 08:09:03 No: 150445

しばらく前に時刻を表示するプログラムを作りました。

仕様は
0.使用コンポーネント：Label、Timerの2つ。
1.時刻表示(H:mm:ss)はフォームに目一杯大きなフォントで表示する。
2.起動時にフォームのCapstan に日付(例：2020-09-16)を表示する。
3.フォームサイズは固定。
4.時刻を表示しているフォームをダブルクリックすると最前面になり、もう一度ダブルクリックすると普通に戻る。

追加機能として、
フォーム上でマウスホイールを押したら日付を更新する機能を追加しようと思ったのですが
「マウスホイールを押したら」ってどう書けば良いのか、さっぱりわからないのでどう記述すれば良いでしょうか？

環境は Delphi 10.4.2 Community + Windows10 です。

au 2022-09-16 08:58:57 No: 150446

OnMouseDown か OnMouseUpでButtonがmbMiddleならホイールクリックになるんじゃないかと
https://docwiki.embarcadero.com/Libraries/Alexandria/ja/Vcl.Controls.TMouseEvent

arigayas 2022-09-16 22:48:22 No: 150447

au さんのおかげでやりたいことが出来ました！！
ありがとうございました。

ソースコード
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbMiddle then
    GetDate(Sender); // 起動時に日付を取得するように関数にしてます。
end;

マウスホイール(マウスの真ん中のボタン)を押したら という処理を追加したい

マウスホイール(マウスの真ん中のボタン)を押したらという処理を追加したい