フリーソフト

« [BCB] 右寄せのTStatusBar | トップページ | [BCB] ListViewで行毎に背景色を変える »

[Delphi] マウスホイールに対応する

type
  TForm1 = class(TForm)
  private
   procedure WMMousewheel(var Msg: TMessage); message WM_MOUSEWHEEL;
        :

implemetation

procedure TForm1.WMMousewheel(var Msg: TMessage);
begin
 if (Msg.WParam > 0) then begin
    //奥の方向にホイール
  Sendmessage(○○.Handle, WM_VSCROLL, SB_LINEUP, 0); //or SB_PAGEUP
 end
  else
  begin
    //手前の方向にホイール
  Sendmessage(○○.Handle, WM_VSCROLL, SB_LINEDOWN, 0); //or SB_PAGEDOWN
 end;
end;

« [BCB] 右寄せのTStatusBar | トップページ | [BCB] ListViewで行毎に背景色を変える »

Delphi」カテゴリの記事

マウス、キーボードの処理」カテゴリの記事