1.设置TVirtualStringTree属性:
toFullRowSelect : false;
toMultiSelect:false;
toExtendedFocous:true;
toEditable:true;
editDelay:0 //如果不调用editnode,则不会CREATE EDITOR
2.实现virtualStringtree的ONClick事件:
功能:根据当前获取焦点的node,判断是否edit该node
TMMSLibraryForm版本:
procedure TMMSLibraryForm.DataTreeClick(Sender: TObject);
var
Column:TColumnIndex;
node:PVirtualNode;
begin
if DataTree...[ 查看全文 ]