使用资源管理器样式时，TListView 不隐藏选择

Question

在Delphi XE4中，如果将HiSERection设置为True并使用Explorer Style TlistView（选择矩形具有渐变背景，如Windows资源管理器）单击另一个控件，则不会隐藏选择矩形。它会一直呆在那里，就好像什么都没发生一样 - 当 Listview 没有焦点时，它甚至不会像往常一样变成灰色矩形。

这是 Delphi 错误还是 MS Listview 控件的“功能”？是否有任何已知的解决方法或修复方法？真的很烦……

Answer 1

这是底层控件的一个功能。除了将LVS_SHOWSELALWAYS 列表视图样式传递给底层控件之外，delphi 代码对该属性没有任何作用。

最初我对你的问题感到惊讶。我从未见过你描述的行为。经过仔细检查，我意识到这是因为我所有的列表视图都是虚拟的。也就是说，他们将OwnerData 设置为True 并提供内容以响应OnData 事件。这样做是我所知道的唯一解决方法。

Answer 2

David 解释了这个“功能”，这里有一个解决方法。

通过使用OnExit 事件来保存选择并将选择设置为零，您将模仿想要的行为。当ListView 聚焦时，恢复选择。 要使其对鼠标做出反应，请将ListView 聚焦在OnMouseEnter 事件中。

Type
  TForm1 = class(TForm)
  ...
  private
    FSelected: TListItem;
  ...
  end;

procedure TForm1.ListView1Enter(Sender: TObject);
begin
  if (ListView1.SelCount = 0) and Assigned(FSelected) then
    ListView1.Selected := FSelected;
end;

procedure TForm1.ListView1Exit(Sender: TObject);
begin
  FSelected := ListView1.Selected;
  if Assigned(FSelected) then ListView1.Selected := Nil;
end;

procedure TForm1.ListView1MouseEnter(Sender: TObject);
begin
  ListView1.SetFocus;
end;

既然提到了这个解决方案，为什么不选择简单的，设置HideSelection = false，并且选中的项目在没有焦点时会变成灰色，就像评论中提到的Sertac一样。