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

解決

arigayas  2022-09-15 23:09:03  No: 150445  IP: 192.*.*.*

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

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

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

環境は Delphi 10.4.2 Community + Windows10 です。

編集 削除
au  2022-09-15 23:58:57  No: 150446  IP: 192.*.*.*

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

編集 削除
arigayas  2022-09-16 13:48:22  No: 150447  IP: 192.*.*.*

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

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

編集 削除