TScrollBox响应鼠标滚轮题目

    添加时间:2013-7-2 点击量:

    Delphi的TScrollBox本身并不响应鼠标滚轮事务（不知道为什么），但可以在ScrollBox的鼠标迁移转变事务中进行把握：



    procedure TfrmTaskNoteEdit.ScrollBox1MouseWheel（Sender: TObject; Shift: TShiftState; WheelDelta: Integer;

      MousePos: TPoint;     var Handled: Boolean）;

    begin

      if   WheelDelta   <   0   then

        SendMessage（scrollBox1.Handle，WM_VSCROLL，   SB_LINEDOWN，       0） //向下滚

          else

        SendMessage（scrollBox1.Handle，WM_VSCROLL，   SB_LINEUP，       0）; //向上滚

    end;



    测试经由过程，新鲜的是我在一个PageControl的两个页面平分别放置两个ScrollBox时只有一个有响应，愁闷，后来只好调剂到窗体的MouseWheel事务中：



    procedure TfrmTaskNoteEdit.FormMouseWheel（Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;

          var Handled: Boolean）;

    begin

      inherited;

          case RzPageControl1.ActivePageIndex of

        0:

            begin

          if WheelDelta < 0 then

            ScrollBox1.Perform（WM_VSCROLL，SB_LINEDOWN，    0）

              else

            ScrollBox1.Perform（WM_VSCROLL，SB_LINEUP，    0）;

            end;

            2:

            begin

          if WheelDelta < 0 then

            ScrollBox2.Perform（WM_VSCROLL，SB_LINEDOWN，    0）

              else

            ScrollBox2.Perform（WM_VSCROLL，SB_LINEUP，    0）;

            end;

          end;

    end;


    所有随风而逝的都属于昨天的，所有历经风雨留下来的才是面向未来的。—— 玛格丽特·米切尔 《飘》
    分享到：