在 Delphi 中设置数值范围的 GUI

Question

有时我需要一个 GUI 来设置 数值范围，但到目前为止，我还没有真正找到任何能很好地做到这一点的组件。

我尝试了以下方法：

• 2 个 TTrackbar：1 个最小，1 个最大

• 2 个 TTackbars：1 个表示最小值，1 个表示范围

• 2 个 TSpinEdit 控件可手动输入数字

• 1 TTrackbar 控件，带有一个小按钮可以在最小模式和最大模式之间切换。在最小模式下我设置了 selStart，在最大模式下我设置了 selEnd（ShowSelRange 设置为 true）。

大多数选项占用的屏幕空间超出了我的预期，而且它们并不直观。

理想情况下，我想要像 Sony ACID 中的滚动条一样工作的东西。您可以单击并拖动 3 个不同的点到最小值、最大值或两者：

是否有任何免费组件可用于设置范围，或者可以通过创造性地使用开箱即用的 VCL 组件来完成类似的事情？

---

更新

我已修改 TMkRangeSlider 以满足我的需要。它现在就像一个魅力。修改后的组件和demo我已经发给原作者了。

Answer 1

像Range Slider, by Michael Kochiashvili 这样的东西怎么样。它是带有源代码的免费软件，为 Delphi 5 编写并附带一个演示：

它不会同时移动 min 和 max，但既然你有源代码，如果你真的需要它，你可以添加那个功能。

Answer 2

使用标准的 TScrollBox，在技术上可以手动调整其 PageSize 和 Position 属性，同时拖动其拇指（在其 OnScroll 事件中的 ScrollCode=scTrack）以模拟您在 ACID 屏幕截图中显示的那种 UI .问题是 1）您不能拥有绘制 TScrollBar 来添加拖动线，以及 2）没有直接的方法来确定用户按住鼠标的拇指的哪个部分（末端与中间）。除非您可以提出一些相当可靠的计算来根据当前 Position 和 PageSize 相对于整个客户矩形来计算拇指左右边缘的像素偏移量，否则您最好简单地编写自己的组件，然后你可以让它的外观和行为随心所欲。