delphi 让ScrollBox响应鼠标滚轮事件

关注

转载最新推荐文章于 2024-11-19 23:19:47 发布 1.3w 阅读 AI 写同款· GEO 优化 ›

限时加码！20+主流AI编程工具免费用购周边加赠Coding Plan Lite，Claude Code、Cursor等即刻畅享，学习进阶更高效！阅读详情

Delphi7中ScrollBox控件是不响应鼠标滚轮事件的，让其响应鼠标滚轮方法如下：

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if WheelDelta < 0 then
ScrollBox1.Perform(WM_VSCROLL,SB_LINEDOWN,0)
else
ScrollBox1.Perform(WM_VSCROLL,SB_LINEUP,0);
end;

ScrollBox1.Perform(WM_VSCROLL,SB_LINEDOWN,0) 改成 SendMessage(ScrollBox1.Handle,WM_VSCROLL,SB_LINEDOWN,0)，

ScrollBox1.Perform(WM_VSCROLL,SB_LINEUP,0) 改成 SendMessage(ScrollBox1.Handle,WM_VSCROLL,SB_LINEUP,0) 也行。

一样的原理。

分别在OnMouseWheelDown和OnMouseWheelUp时间里发送鼠标滚轮上滚和下滚的消息也行。

type
    TFormDemo   =   class(TForm)
        ScrollBox:   TScrollBox;
        Panel:   TPanel;
        procedure   FormCreate(Sender:   TObject);
    private
        OldScrollBoxWindowProc:   TWndMethod;
        procedure   NewScrollBoxWindowProc(var   Message:   TMessage);
        procedure   OnMessageOwn(var   Msg:   TMsg;   var   Handled:   Boolean);
    public
        {   Public   declarations   }
    end;

var
FormDemo: TFormDemo;

implementation

{$R *.dfm}

{ TFormDemo }

procedure   TFormDemo.NewScrollBoxWindowProc(var   Message:   TMessage);
var
    Pace:   Integer;
begin
    if   Message.Msg   =   WM_MouseWheel   then
    begin
        Pace   :=   Message.wParam   ;
        if   Pace   >   120   then
            ScrollBox.VertScrollBar.Position   :=   ScrollBox.VertScrollBar.Position   +   10
        else
            ScrollBox.VertScrollBar.Position   :=   ScrollBox.VertScrollBar.Position   -   10;
    end;
    OldScrollBoxWindowProc(Message);
end;

procedure   TFormDemo.FormCreate(Sender:   TObject);
begin
    OldScrollBoxWindowProc   :=   ScrollBox.WindowProc;
    ScrollBox.WindowProc   :=   NewScrollBoxWindowProc;
    Application.OnMessage   :=   OnMessageOwn;
end;

procedure   TFormDemo.OnMessageOwn(var   Msg:   TMsg;   var   Handled:   Boolean);
begin
    if   Msg.message   =   WM_MOUSEWHEEL   then
    begin
        SendMessage(ScrollBox.Handle,   WM_MouseWheel,   HiWord(Msg.wParam),   Msg.lParam);
        Handled   :=   False;
    end;
end;

上面是截获滚轮消息并传递给ScrollBox, 滚动的步长我设为10