delphi - 如何通过单击空白背景来选择任何内容？

Question

我有一个虚拟 TreeView (例如TVirtualStringTree)。

• 用户可以选择一行
• 但如果他们也可以通过点击“无处”来选择任何行这样直观的事情，那就太好了

注意:当然多选是关闭的；因为他们只能选择零个或一个项目

MCRE:

procedure TForm6.FormCreate(Sender: TObject);
var
    vst: TVirtualStringTree;
begin
    vst := VirtualStringTree1;

    vst.RootNodeCount := 5;
    vst.TreeOptions.SelectionOptions := vst.TreeOptions.SelectionOptions + [toFullRowSelect];
    vst.Header.Options := vst.Header.Options + [hoVisible];
    vst.Header.Columns.Add;
    vst.Header.Columns.Add;
    vst.Header.Columns.Add;
    vst.Header.Columns.Add;
    vst.Header.Columns.Add;
end;

Answer 1

如果未设置 toAlwaysSelectNode 且在 TreeOption.SelectionOptions 中设置了 toMultiSelect，则此功能应该可以开箱即用。使用最新源进行测试。

在其他情况下，只需调用ClearSelection():

procedure TVisibilityForm.VST2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if TBaseVirtualTree(Sender).GetNodeAt(Point(X, Y)) = nil then
    TBaseVirtualTree(Sender).ClearSelection();
end;