delphi – Mouse-Wheel向错误的控件发送消息

发布时间：2020-12-15 09:46:17 所属栏目：大数据来源：网络整理

导读：我使用 Windows XE2,TVirtualStringTree和TComboBox作为内置编辑器. 当我将TComboBox直接放在表单上时,在运行时我可以下拉列表,鼠标滚轮上下滚动列表中的项目(根据需要).但是,当TVirtualStringTree在运行时创建TComboBox作为就地编辑器时,即使新创建的组合框

我使用 Windows XE2,TVirtualStringTree和TComboBox作为内置编辑器.

当我将TComboBox直接放在表单上时,在运行时我可以下拉列表,鼠标滚轮上下滚动列表中的项目(根据需要).但是,当TVirtualStringTree在运行时创建TComboBox作为就地编辑器时,即使新创建的组合框具有焦点,鼠标滚轮的WM_MOUSEWHEEL消息也会发送到树控件而不是组合框.

这很明显,因为组合框下拉列表中的项目不会滚动.相反,组合框后面的树控件滚动.组合框的固定部分随树一起移动,但下拉列表与组合框的固定部分断开连接并且不移动(如图所示).

在这两种情况下,TComboBox.Style都设置为csDropDownList.当组合框创建为树的就地编辑器时,它以这种方式完成：

FCBox := TComboBox.Create(TreeControl);
FCBox.Visible := False;
FCBox.Parent := TreeControl;
// ... add items to combo box ...
FCBox.Visible := True;
FCBox.SetFocus;
FCBox.DroppedDown := True;

鼠标在哪里悬停并不重要.它可以直接在组合框下拉列表中的项目上,并且后台中的树控件仍然是滚动的树控件.滚动组合框中项目的唯一方法是使用其滚动条.

什么会导致聚焦控件的父级接收鼠标滚轮消息而不是控件本身(在本例中为TComboBox)？

解决方法

VirtualTrees.pas在TBaseVirtualTree类中包含以下声明：

private
  procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;

组件作者捕获了鼠标滚轮消息,因此他可以先垂直滚动,然后水平滚动.自定义代码是将鼠标滚轮消息发送到TVirtualStringTree而不是TComboBox的原因.我注释掉了他的代码,并按预期滚动了TComboBox下拉列表.

由于我真的不想删除TBaseVirtualTree代码,因此我使用以下代码创建了自己的TMyComboBox,以用作就地编辑器.现在,滚动在下拉列表和树控件中都能正常工作.

interface

type
  TMyCombBox = class(TComboBox)
  private
    procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;
  end;

implementation

procedure TMyComboBox.CMMouseWheel(var Message: TCMMouseWheel);
begin
  if DoMouseWheel([],Message.WheelDelta,SmallPointToPoint(Message.Pos)) then
    Message.Result := 1;
end;

这将捕获CM_MOUSEWHEEL消息,然后将其传递给树控件并将其交给TControl.DoMouseWheel()方法进行处理.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!