如何使用鼠标滚轮在TValueListEditor上滚动选项列表？

Question

默认情况下，鼠标滚轮将更改TValueListEditor上的行。当我有一个选项列表时，我更喜欢鼠标滚轮来滚动显示的列表。我知道如何覆盖默认行为，但是如何获取对控制下拉列表显示的对象的访问权限以便我可以告诉它滚动？

Answer 1

TValueListEditor具有InplaceEditor和EditList属性，返回指向TInplaceEditList对象的指针（InplaceEditor属性返回TInplaceEdit*指针，你可以输入到TInplaceEditList*）。这两个属性都声明为protected，因此您必须使用访问者来访问它们，或者从TValueListEditor派生，以便提升其可见性。

在任何一种情况下，TInplaceEditList都有一个公共PickList属性，该属性返回指向TCustomListBox对象的指针（实际上是TPopupListBox）。