使用代码控制TVirtualStringTree的选项

在这里仅以“是否允许中键选择”为代表，其它属性。

function GetMultiSelected: Boolean;
begin
  result := toMiddleClickSelect in frameTask.vstList.TreeOptions.SelectionOptions;
end;

procedure SetMultiSelected(const Value: Boolean);
begin
  if Value then
  begin
    vstList.TreeOptions.SelectionOptions := frameTask.vstList.TreeOptions.SelectionOptions + [toMiddleClickSelect];
  end
  else
  begin
      vstList.TreeOptions.SelectionOptions := frameTask.vstList.TreeOptions.SelectionOptions - [toMiddleClickSelect];
  end;
end;