delphi如何单击垂直滚动条上的箭头 Self.vertsollbar.Range:=Application.MainForm.Height；

已成功创建垂直滚动条

按垂直滚动条上的箭头不响应

---

是否可以转发消息或设置对象选项？

如果屏幕转储上显示的滚动条是您在表单上放置的滚动条组件，请分配OnChange事件处理程序并执行您需要执行的任何操作：

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
    Memo1.Lines.Add(ScrollBar1.Position.ToString);
end;

---

但也许你真正需要的是一个TScrollBox，它是一种TPanel，内容大于可见大小，滚动条允许滚动可见部分。

请不要发布模棱两可的问题。包含足够的代码，而不是更少。我无法复制。请查看问题标签下方的编辑按钮。请阅读