Q&A

  • 휠마우스버튼으로 윈도우 좌우 스크롤 가능하게 하는방법점 부탁드림.
휠마우스 버튼으러
상하,스크롤이 아닌.좌우 스크롤을 할수 있는방법을
찾거 있어여,
아님 상하,좌우 콘트롤이 가능하면 더 좋구여,
여러 고수님덜 조은 의견 부탁드림다,,
1  COMMENTS
  • Profile
    최용일 2002.04.09 04:41
    안녕하세요. 최용일입니다.

    OnMouseWheelXXXX이벤트에서 원하시는 코딩을 하시면 됩니다...

    procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
    begin
        Handled := True;
        SendMessage(Handle, WM_HSCROLL, SB_LINELEFT, 0);
    end;

    procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    begin
        Handled := True;
        SendMessage(Handle, WM_HSCROLL, SB_LINERIGHT, 0);
    end;

    ^^ 항상 즐코하세요...