테스트는 해봐야 알겠지만.... 일단은 원하는데로 나왔습니다.

감사합니다.

allow 님이 쓰신 글 :
: 답변감사합니다.
:
: 근데 문제는
:
: 포커스가 꼭 그 폼에 있어야만 작동이 되는군요...
:
: 흠...
:
: 제가한건 아무데서나 먹어서 고민이구 님께서 답변해 주신건 포커스가 있어야만 해서 고민 입니다.
:
: 어떻해 해야 할 지...
:
: 폼이 여러가지라...
:
: 즉, 여러 폼중에 Modal 식으로 띄운 폼에서만 작동이 안되면 되거든요....
:
: 감사합니다.
:
: 정성훈.해미 님이 쓰신 글 :
: : 폼 이벤트중에 onMouseWheel 이벤트가 있는데
: :
: : 이 것을 이용하시는게 어떻겠습니까.
: :
: : void __fastcall TForm1::FormMouseWheel(TObject *Sender, TShiftState Shift,
: :       int WheelDelta, TPoint &MousePos, bool &Handled)
: : {
: :     A->SetPosition(A->PositionX, A->PositionY-WheelDelta);
: : }
: :
: : 이렇게...
: :
: : 그 다음엔...다른 폼에서 위의 코드가 있는 폼을 호함시키고(Include Unit Hdr...)
: :
: : 마우스휠 이벤트에 위의 함수를 연결하면..
: :
: : 아마...
: :
: : 시간이 엄써서 테스트는 못해 봤습니다.
: :
: : 한번 해 보세요...
: :
: :
: : //---------------------------------------------------------------------------
: :
: :
: : allow 님이 쓰신 글 :
: : : void __fastcall TAForm::ApplicationEvents1Message(tagMSG &Msg,
: : :       bool &Handled)
: : : {
: : :   int zDelta;
: : :   POINT p;
: : :   if(Msg.message==WM_MOUSEWHEEL){
: : :     GetCursorPos(&p);
: : :     if(PtInRect(&(this->ClientRect),this->ScreenToClient(p))){
: : :       // Msg 를 확인하면 휠의 정보를 알수 있습니다.
: : :       zDelta = GET_WHEEL_DELTA_WPARAM(Msg.wParam);
: : :       A->SetPosition(A->PositionX, A->PositionY-zDelta);
: : :     }
: : :   }
: : : }
: : :
: : : 이런 식으로 마우스 휠을 사용해서 스크롤을 움직이려고 하는데
: : : 다른 폼이 뜨면 같이 움직이더군요...
: : :
: : : 그래서 그런데 다른 폼이 뜨면 그폼에서만 작동하고 다른 폼이 없을때만 작동하게 할순 없나요?
: : : 따로 뜨는 폼이 여러개라 if(B)return; 이런식으로 하기엔 너무 노가다란 생각이 들어서요...
: : : 답변부탁드리겠습니다.