Application/Delphi Lecture126 window Hook 안녕하세요.. 마당쇱니다. 후킹의 강력함을 모두 이용하려면 시스템에 있는 모든 윈도우에 대해서 훅을 걸어서 써야겠지만 간혹 자신의 윈도우 안에서만 후킹을 해야 할 경우가 있습니다. ( 'KeyPreView := true'로는 해결이 안되고 모든 키에 대해서 처리를 해야 할 경우라든지, 폼위에서(Caption이나 Menu위에서) 움직이는 마우스의 모든상태를 처리해야 한다든지 하는 경우이겠지요.. ) 두 경우의 차이라면 시스템 전반에 훅을 걸 경우에는 DLL에서 걸어야 하지만 후자의 경우에는 DLL이 필요없이 프로젝트 내에서 간단하게 훅을 설치할수 있다는 것입니다. 이때 SetWindowsHookEx에 넣어주어야 할 매개변수가 달라지게 되지요.. 가령 후자의 경우에는 ( 내 윈도우 안에만 훅을 설치할때 ) .. 2008. 7. 24. Mouse Wheel 처리 1) public 부분에 아래의 함수를 선언합니다. procedure OnWMMouse(var Msg : TWMSysCommand); message WM_MOUSEWHEEL; 2) 다음과 같이 코딩합니다. - 휠마우스를 위로 굴리시면 Msg.CmdType 가 음수(-)값이 나오고 - 아래로 굴리시면 Msg.CmdType 가 양수(+)값이 나옵니다. procedure TFormHistory.OnWMMouse(var Msg: TWMSysCommand); begin if Not (ActiveControl is TRealGrid) then Exit; if (Msg.CmdType < 0 ) then RGridCallList.Row := RGridCallList.Row + 1 else RGridCallList.Ro.. 2008. 7. 24. 이전 1 ··· 29 30 31 32 다음