使用代码控制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;