Q&A
- 마우스 훅... (휠 마우스의 방향 감지하기)
안녕 하세요?
BacTeria 박종민 입니다.
휠 마우스의 움직임을 훅 하려고 아래와 같은 내용으로 DLL을 구성 했습니다.
------------------------------------------------------------------------------
:
:
function MouseHook(Code: Integer; wParam: WPARAM; lParam: LPARAM): LongInt; Stdcall;
begin
if Code >= 0 then
if wParam = WM_MOUSEWHEEL then
begin
// 요기에서 어떤 처리를???
end;
Result := CallNextHookEx(TheHook, Code, wParam, lParam);
end;
:
:
------------------------------------------------------------------------------
문제가 뭐냐면요.
휠마우스가 움직인 것은 잡아낼 수 있는데
위아래 방향 즉, 어느 방향으로 스크롤 했는지 잡을 방법이 없네요~
도움 주십시요~
이만... 박종민...
BacTeria 박종민 입니다.
휠 마우스의 움직임을 훅 하려고 아래와 같은 내용으로 DLL을 구성 했습니다.
------------------------------------------------------------------------------
:
:
function MouseHook(Code: Integer; wParam: WPARAM; lParam: LPARAM): LongInt; Stdcall;
begin
if Code >= 0 then
if wParam = WM_MOUSEWHEEL then
begin
// 요기에서 어떤 처리를???
end;
Result := CallNextHookEx(TheHook, Code, wParam, lParam);
end;
:
:
------------------------------------------------------------------------------
문제가 뭐냐면요.
휠마우스가 움직인 것은 잡아낼 수 있는데
위아래 방향 즉, 어느 방향으로 스크롤 했는지 잡을 방법이 없네요~
도움 주십시요~
이만... 박종민...
3
COMMENTS
-
-
윤티 wrote:
> 박종민 wrote:
> > 안녕 하세요?
> >
> > BacTeria 박종민 입니다.
> >
> > 휠 마우스의 움직임을 훅 하려고 아래와 같은 내용으로 DLL을 구성 했습니다.
> >
> > ------------------------------------------------------------------------------
> >
> > :
> > :
> >
> > function MouseHook(Code: Integer; wParam: WPARAM; lParam: LPARAM): LongInt; Stdcall;
> > begin
> > if Code >= 0 then
> > if wParam = WM_MOUSEWHEEL then
> > begin
> >
> > // 요기에서 어떤 처리를???
> >
> > end;
> >
> > Result := CallNextHookEx(TheHook, Code, wParam, lParam);
> > end;
> >
> > :
> > :
> >
> > ------------------------------------------------------------------------------
> >
> > 문제가 뭐냐면요.
> >
> > 휠마우스가 움직인 것은 잡아낼 수 있는데
> >
> > 위아래 방향 즉, 어느 방향으로 스크롤 했는지 잡을 방법이 없네요~
> >
> > 도움 주십시요~
> >
> > 이만... 박종민...
>
>
> WM_MOUSEWHEEL메시지 가 발생할때
> wParam의 상위영역에 윈지 아랜지 정보가 날아옵니다.
> 앞으로 움직이면 긍정적은 값이라고 하네요.
> boolean형으로 타입캐스트하면 true이겠지요...........
>
타입캐스팅합니다.
boolean(HIWORD(tmessage(wParam).wparam))
그리고
if boolean(HIWORD(tmessage(wParam).wparam)) then
이러면 앞으로 움직인것이라고 하네요............
-
윤티 wrote:
> 윤티 wrote:
> > 박종민 wrote:
> > > 안녕 하세요?
> > >
> > > BacTeria 박종민 입니다.
> > >
> > > 휠 마우스의 움직임을 훅 하려고 아래와 같은 내용으로 DLL을 구성 했습니다.
> > >
> > > ------------------------------------------------------------------------------
> > >
> > > :
> > > :
> > >
> > > function MouseHook(Code: Integer; wParam: WPARAM; lParam: LPARAM): LongInt; Stdcall;
> > > begin
> > > if Code >= 0 then
> > > if wParam = WM_MOUSEWHEEL then
> > > begin
> > >
> > > // 요기에서 어떤 처리를???
> > >
> > > end;
> > >
> > > Result := CallNextHookEx(TheHook, Code, wParam, lParam);
> > > end;
> > >
> > > :
> > > :
> > >
> > > ------------------------------------------------------------------------------
> > >
> > > 문제가 뭐냐면요.
> > >
> > > 휠마우스가 움직인 것은 잡아낼 수 있는데
> > >
> > > 위아래 방향 즉, 어느 방향으로 스크롤 했는지 잡을 방법이 없네요~
> > >
> > > 도움 주십시요~
> > >
> > > 이만... 박종민...
> >
> >
> > WM_MOUSEWHEEL메시지 가 발생할때
> > wParam의 상위영역에 윈지 아랜지 정보가 날아옵니다.
> > 앞으로 움직이면 긍정적은 값이라고 하네요.
> > boolean형으로 타입캐스트하면 true이겠지요...........
> >
>
> 타입캐스팅합니다.
> boolean(HIWORD(tmessage(wParam).wparam))
> 그리고
>
> if boolean(HIWORD(tmessage(wParam).wparam)) then
> 이러면 앞으로 움직인것이라고 하네요............
>
>
>
>
타입캐스팅합니다.
boolean(HIWORD(tmessage(wParam).wparam))
그리고
if boolean(HIWORD(tmessage(wParam).wparam)) then
이러면 앞으로 움직인것이라고 하네요............
아이고 죄송합니다.
이런 황당한 실수를 하다니
boolean(HIWORD(tmessage(wParam).wparam))이부분은 틀렸어요.
훅에서는 거의 wparam과 lparam에는 포인터가 오는데.........
그리고 tmessage 이건 델파이에만 존재하는 것인데..........
boolean(HIWORD(tmsg(wParam^).wparam))이렇게 되어야 하는데.........
(NOTICE) You must be logged in to comment on this post.
-
- 최 소 영
- 2000.06.17 11:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 임형호
- •
- 2000.06.17 09:54
- 1 COMMENTS
- /
- 0 LIKES
-
양병규•2000.06.17 10:20그대로 쓰셔도 무방합니다. 여기서 Shift: TShiftState는.. 키보드 메시지들을 받아서 기능키들(콘트...
-
- 양은주
- •
- 2000.06.17 09:27
- 1 COMMENTS
- /
- 0 LIKES
-
양병규•2000.06.17 10:21쩝~ 이상하네요 델5에도 델4와 같이 똑같이 있는데용~ 혹시 스탠다드에는 빠졌남? 그럼 평안하시길...
-
- 이정민
- •
- 2000.06.17 09:20
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.17 10:33안녕하세요. 최용일입니다. 정말 오래간만이네요. 이젠 그만 두신줄 알았는데.... 근데 어쩌나.... ...
-
이정민•2000.06.17 11:24암튼 감사드립니다. 용일님.. 제가 여쭈어본건 그게 아니였는데.. 다시 글을 올려야겠네여.. ...
-
- 초보
- •
- 2000.06.17 06:55
- 2 COMMENTS
- /
- 0 LIKES
-
박흥태•2000.06.17 08:34초보 wrote: > 자료변환을 할려고 하는데요... > > 예를 들어... 1. '홍 길 동' -----> '홍길동' > ...
-
유레카•2000.06.17 18:35stringReplace('홍 길 동',' ','',[rfReplaceAll]) 하면 리턴값이 홍길동 박흥태 wrote: > 초보 wrot...
-
- 아리엘
- •
- 2000.06.17 06:52
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.17 19:36안녕하세여.. 타락임다..^^ 글쿤여. 글을 여러번 올렸군여... 제가 바뻐서뤼...ㅠㅠ QRExpre 속성...
-
- 손상택
- •
- 2000.06.17 06:42
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.17 11:11안녕하세요. 최용일입니다. Tile이나 Center나 그게그거 아닌가요? 타일처럼 반복해서 여러번 그려주는 ...
-
- 전준형
- 2000.06.17 04:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 문승진
- •
- 2000.06.17 03:55
- 1 COMMENTS
- /
- 0 LIKES
-
양병규•2000.06.17 10:23OnShow에서 닫을꺼면 처음부터 폼을 안여는게 더 좋을것같군요 히~ !^^! 그럼 평안하시길~ 문승진 ...
-
- 이영범
- •
- 2000.06.17 03:40
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.06.17 04:05디비그리드에 사용한 데이터 소스컴포넌트를 이용하시면 될것같습니다. procedure TForm1.DataSource1Data...
-
- 델초...
- •
- 2000.06.17 03:05
- 1 COMMENTS
- /
- 0 LIKES
-
박흥태•2000.06.17 08:44델초... wrote: > 오늘부터 7일 이내의 자료를 뽑고 싶어서 아래와 같이 코딩했는데.... > 컨버젼 에러.....
-
- blueofsky
- •
- 2000.06.17 04:13
- 2 COMMENTS
- /
- 0 LIKES
-
고양이•2000.06.17 06:20blueofsky wrote: > 안녕하세요... > > 저는 어떤 특정한 날에 딱 한번만 실행되게 하려고 합니다. 폼...
-
한창희•2000.06.17 11:06고양이 wrote: > blueofsky wrote: > > 안녕하세요... > > > > 저는 어떤 특정한 날에 딱 한번만 실행...
-
- 박종민
- •
- 2000.06.17 02:25
- 3 COMMENTS
- /
- 0 LIKES
안녕 하세요? BacTeria 박종민 입니다. 휠 마우스의 움직임을 훅 하려고 아래와 같은 내용으로 DLL을 구성 했습니다. ------------------------------------------------------------------------------ : : function MouseHook(Code: Int...-
윤티•2000.06.17 05:53박종민 wrote: > 안녕 하세요? > > BacTeria 박종민 입니다. > > 휠 마우스의 움직임을 훅 하려고 ...
-
윤티•2000.06.20 04:24윤티 wrote: > 박종민 wrote: > > 안녕 하세요? > > > > BacTeria 박종민 입니다. > > > > 휠 마우...
-
윤티•2000.06.20 05:48윤티 wrote: > 윤티 wrote: > > 박종민 wrote: > > > 안녕 하세요? > > > > > > BacTeria 박종민 입...
-
- HELP ME
- •
- 2000.06.17 02:22
- 3 COMMENTS
- /
- 0 LIKES
-
그냥•2000.06.17 11:10HELP ME wrote: > 현재 보이는 DBGrid만 출력하는 방법이 있나요? > 알려주세요... 죄송합니다. 이런...
-
그냥 2•2000.06.17 11:15맞습니다. 정확한 상황을 알려주어야죠. 광범위한 질문이나 얘매모호한 질문은 대답을 해드리고 싶어도 ...
-
HELP ME•2000.06.18 03:14그러니까...조회를 해서 많은 데이터가 그리드에 검색되었습니다.. 스크롤바를 내리면 데이터가 계속 보이...
-
- cooli
- •
- 2000.06.17 02:16
- 1 COMMENTS
- /
- 0 LIKES
-
최영근•2000.06.17 05:13cooli wrote: > Quick Report를 써서 미리보기를 한 다음 파일로 저장하려면 > Qrp파일로 저장이 되는데 ...
-
- 병규
- 2000.06.17 02:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 이윤영
- •
- 2000.06.17 02:03
- 2 COMMENTS
- /
- 0 LIKES
-
손님•2000.06.20 04:30이윤영 wrote: > Access DB를 ODBC을 이용하여 연결하여 사용할려구 합니다. > > 근데 한 Table의 필드...
-
이윤영•2000.06.20 18:32손님 wrote: > 이윤영 wrote: > > Access DB를 ODBC을 이용하여 연결하여 사용할려구 합니다. > > > >...
-
- 김동진
- •
- 2000.06.17 01:58
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.17 11:06안녕하세요. 최용일입니다. 아래와 같은 방식이 아니라 순수하게 문자를 식으로써 계산하려 하신다면 자...
-
azure•2000.06.17 02:30김동진 wrote: > str:='1+2+3+4+5' 이고 > edit1.text:=str 하면 1+2+3+4+5 가 됩니다. > 그런데 전 e...
-
- azure
- •
- 2000.06.17 01:56
- 1 COMMENTS
- /
- 0 LIKES
-
양병규•2000.06.17 10:27그냥 리치에디트의 메소드를 이용하시면 됩니다. 리치에디트 콤포넌트는 RidhEd32.dll을 사용하는데 이...
-
- 델사랑
- •
- 2000.06.17 01:55
- 1 COMMENTS
- /
- 0 LIKES
-
강호규•2000.06.27 02:37델사랑 wrote: > 이수정 wrote: > > > > 10057 에러가 무슨 에러 인가요?? > > > > Getpeername ...
> 안녕 하세요?
>
> BacTeria 박종민 입니다.
>
> 휠 마우스의 움직임을 훅 하려고 아래와 같은 내용으로 DLL을 구성 했습니다.
>
> ------------------------------------------------------------------------------
>
> :
> :
>
> function MouseHook(Code: Integer; wParam: WPARAM; lParam: LPARAM): LongInt; Stdcall;
> begin
> if Code >= 0 then
> if wParam = WM_MOUSEWHEEL then
> begin
>
> // 요기에서 어떤 처리를???
>
> end;
>
> Result := CallNextHookEx(TheHook, Code, wParam, lParam);
> end;
>
> :
> :
>
> ------------------------------------------------------------------------------
>
> 문제가 뭐냐면요.
>
> 휠마우스가 움직인 것은 잡아낼 수 있는데
>
> 위아래 방향 즉, 어느 방향으로 스크롤 했는지 잡을 방법이 없네요~
>
> 도움 주십시요~
>
> 이만... 박종민...
WM_MOUSEWHEEL메시지 가 발생할때
wParam의 상위영역에 윈지 아랜지 정보가 날아옵니다.
앞으로 움직이면 긍정적은 값이라고 하네요.
boolean형으로 타입캐스트하면 true이겠지요...........