delphi 界面滚动条受鼠标滚动控制

1、添加控件applicationevents

2、在这个空间的message事件添加下列方法

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;

  var Handled: Boolean);
begin
  //窗体的滚动条响应鼠标滚轮
  if Msg.message = WM_MOUSEWHEEL then
  begin
    if self.Visible then
    begin
      if Msg.wParam >0 then
      begin
        self.VertScrollBar.Position := self.VertScrollBar.Position - self.VertScrollBar.increment;
      end
      else
      begin
        self.VertScrollBar.Position := self.VertScrollBar.Position + self.VertScrollBar.increment;
      end;
      Handled := True;
    end
    else
      Handled := false;
  end;
end;