delphi - 停用表单时 TTreeView 绘制错误

Question

我发现了一个与 TTreeView 相关的错误。

• 获取一个包含 TTreeView 的表单，并将 HideSelection 设置为 True。
• 使 TreeView 多选并在 TreeView 中选择多个项目。
• 显示另一个表单，以便您的应用拥有两个表单。
• 将焦点置于 TreeView 上，然后单击其他窗体。

结果如下所示:

但实际上不应该有突出显示的项目。有趣的是，最后一个项目被选中，并且不再突出显示，所有其他项目也应该如此。看来最近点击的项目是获得特殊待遇的项目。

如果您单击编辑框(或任何其他获得焦点的控件)，则所有项目都会正确隐藏。因此，将焦点转移到窗体上的另一个控件就可以了，问题似乎仅限于停用窗体。

通过反复试验，我发现只要表单停用和激活(需要防止错误的镜像)，我就可以通过在 TreeView 上调用 Invalidate 来解决此问题。但是，我正在寻求更好地了解错误是什么以及如何以侵入性较小的方式修复它，即在 TreeView 级别而不是包含表单级别。

总而言之，我的问题是:

1. 到底是什么导致了这个问题？
2. 如何在不编写 Hook TForm 事件的代码的情况下修复此问题？

<小时/>

将问题提交为 QC#94908 .

Answer 1

解决方案似乎是响应 NM_SETFOCUS和NM_KILLFOCUS通过使所选节点无效来通知。您可以直接修改TCustomTreeView.CNNotify，也可以编写一个新的TCustomTreeView 后代。这是一个快速破解，仅显示丢失的代码:

type
  TTreeView = class(ComCtrls.TTreeView)
  private
    procedure CNNotify(var Message: TWMNotifyTV); message CN_NOTIFY;
  end;

procedure TTreeView.CNNotify(var Message: TWMNotifyTV);
begin
  case Message.NMHdr^.code of
    NM_KILLFOCUS, NM_SETFOCUS:
      InvalidateSelectionsRects;
  end;
  inherited;
end;

编辑:大卫的 QC report .