delphi - Delphi ListView OnSelectItem 触发两次

Question

ListView 的 OnSelectItem 事件触发两次。ListView 在 VsReport 模式下是虚拟的。如何防止这种行为或有更好的解决方法？

Answer 1

该事件正在触发选择和取消选择。如果选择了节点 X 并且您选择了节点 Y，它将报告：

1. 节点 X 选择=false
2. 节点 Y 选择=true

您可以通过以下方式使行为可见：

procedure TForm5.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  Showmessage(Item.Caption +' - '+IntToStr(Integer(Selected)));
end;

如果您只想对选择做出反应，请评估Selected。