Delphi/간단하게
간단하게 마우스휠 이벤트 가져오기
마우스휠 이벤트를 가져올 함수 선언procedure WheelEvent(var Message: TMessage); message WM_MOUSEWHEEL;마우스휠 이벤트 처리 함수procedure WheelEvent(var Message: TMessage);begin if ( Message.wParam > 0 ) then //마우스휠이 Up일 때 처리 if ( Message.wParam < 0 ) then //마우스휠이 Down일 때 처리end;