delphi - 如何使delphi的滚动条更宽/更大(包括滚动条的箭头)

Question

出于辅助功能的目的，我需要使所有可滚动控件(列表、 ListView )的滚动条更宽，滚动条箭头更大。

1. 如何从可滚动控件(例如:TListView)获取滚动条( handle )？

2. 如何使滚动条和箭头更宽/更大？

任何提示和代码 10 倍...

Answer 1

辅助功能不涉及单个应用程序，而是涉及整个系统。这就是为什么没有定义 API 来仅为您的程序调整边框宽度、滚动条大小和 native 控件的类似属性等内容。不过，您可以在 Windows 中全局调整这些设置，方法是使用辅助功能向导，或者在显示属性小程序中调整字体、颜色、边框大小和滚动条大小。

有关更多信息，您应该查看 Microsoft Accessibility page并点击各种链接。

编辑:为了您自己的程序的利益而更改全局设置(如已接受的答案所示)是极端粗鲁的。请记住，这会干扰所有其他正在运行的程序。对于带有触摸屏的系统来说，这也许是情有可原的，其中控件需要很大才能使用 - 但在这样的系统上，控件大小可能已经正确设置。