|
답변감사합니다.
근데 문제는
포커스가 꼭 그 폼에 있어야만 작동이 되는군요...
흠...
제가한건 아무데서나 먹어서 고민이구 님께서 답변해 주신건 포커스가 있어야만 해서 고민 입니다.
어떻해 해야 할 지...
폼이 여러가지라...
즉, 여러 폼중에 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; 이런식으로 하기엔 너무 노가다란 생각이 들어서요...
: : 답변부탁드리겠습니다.
|