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