마우스 Wheel메세지를 받아서 처리하여 줍니다

//--- 헤더파일에 아래의 함수를 선언한 후
DYNAMIC void __fastcall MouseWheelHandler(Messages::TMessage &Message);
//--- CPP 파일에 선언된 함수를 추가
void __fastcall TFormMain::MouseWheelHandler(Messages::TMessage &Message)
{
    if (Message.Msg == WM_MOUSEWHEEL){
        if (dynamic_cast<TDBGrid *>(ActiveControl)){
            if (Message.WParam > 0){
                keybd_event(VK_UP, VK_UP, 0, 0);
            }
            else if (Message.WParam < 0){
                keybd_event(VK_DOWN, VK_DOWN, 0, 0);
            }
        }
    }
}


하안인 님이 쓰신 글 :
: dbgrid에서 마우스휠사용시 내용이 스크롤 되도록 하려고 합니다.
: 어떻게 해야 할까요.
: 즉 화면상에서는 스크롤되는데 화면외에것은 더이상 스크롤 되지 않아서...