如何使用鼠标滚轮在 TValueListEditor 上滚动选择列表?

How to scroll the picklist on a TValueListEditor with the mousewheel?

默认情况下,鼠标滚轮将更改 TValueListEditor 上的行。当我有一个选择列表时,我更希望鼠标滚轮滚动显示的列表。我知道如何覆盖默认行为,但我如何获得对控制下拉列表显示的对象的访问权限,以便我可以让它滚动?

TValueListEditor 具有 InplaceEditorEditList 属性,return 指向 TInplaceEditList 对象的指针(InplaceEditor 属性 return 是一个 TInplaceEdit* 指针,您可以将其类型转换为 TInplaceEditList*)。这两个属性都声明为 protected,因此您必须使用访问器来访问它们,或者从 TValueListEditor 派生,以便提高它们的可见性。

在任何一种情况下,TInplaceEditList 都有一个 public PickList 属性 return 是指向 TCustomListBox 对象的指针(它是实际上是 TPopupListBox).