山本隆の開発日誌

マウスホイールのイベント処理

class TForm1 : public TForm
{
private:    // ユーザー宣言
  void __fastcall WMMouseWheel(TMessage &Msg);
BEGIN_MESSAGE_MAP
  VCL_MESSAGE_HANDLER(WM_MOUSEWHEEL, TMessage, WMMouseWheel)
END_MESSAGE_MAP(TComponent)
};
//---------------------------------------------------------------------------
/**
 * マウスホイールを動かしたときの処理
 */
void __fastcall TForm1::WMMouseWheel(TMessage &Msg)
{
  if (Msg.WParam > 0)
  { 
    //ホイールを奥に動かした時の処理
  }
  else
  { 
    //ホイールを手前に動かした時の処理
  }
}