扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
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.FocusedNode=nil then Exit;
node:=DataTree.FocusedNode;
Column:=DataTree.FocusedColumn;
if Column<>3 then
DataTree.EditNode(node,Column);
end;
TSPNumbersForm版本:
procedure TSPNumbersForm.VSTreeSPnumberClick(Sender: TObject);
var
Column:TColumnIndex;
node:PVirtualNode;
begin
if VSTreeSPnumber.FocusedNode=nil then Exit;
node:=VSTreeSPnumber.FocusedNode;
Column:=VSTreeSPnumber.FocusedColumn;
VSTreeSPnumber.EditNode(node,Column);
end;
TTestNumberForm版本:
procedure TTestNumberForm.VSTreeTestNumberClick(Sender: TObject);
var
Column:TColumnIndex;
node:PVirtualNode;
begin
if VSTreeTestNumber.FocusedNode=nil then Exit;
node:=VSTreeTestNumber.FocusedNode;
Column:=VSTreeTestNumber.FocusedColumn;
VSTreeTestNumber.EditNode(node,Column);
end;
3.实现virtualStringtree的ONCreateEditor事件:
功能:如果editnode被调用,则执行此函数;之前设置editDelay:0,是为避免在不允许改动的node上出现editor
TMMSLibraryForm版本:
procedure TMMSLibraryForm.DataTreeCreateEditor(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; out EditLink: IVTEditLink);
begin
EditLink:=TStringEditLink.create('',stringlist[node.index * 5+Column])
end;
TSPNumbersForm版本:
procedure TSPNumbersForm.VSTreeSPnumberCreateEditor(
Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
out EditLink: IVTEditLink);
begin
EditLink:=TStringEditLink.create('',stringlist[node.index * 7+Column]);
end;
TTestNumberForm版本:
procedure TTestNumberForm.VSTreeTestNumberCreateEditor(
Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
out EditLink: IVTEditLink);
begin
EditLink:=TStringEditLink.create('',stringlist[node.index * 4+Column]);
end;
4.实现virtualStringtree的ONNewText事件:
功能:根据获取焦点的node的column,判断值的合法性,并同时更新数据库和stringlist
TMMSLibraryForm版本:
procedure TMMSLibraryForm.DataTreeNewText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; NewText: WideString);
var
sql:string;
begin
case Column of
0:
begin
if (StrToInt64Def(Trim(NewText),-1)=-1) then
begin
ShowMessage('"'+Trim(NewText)+'"'+'does not represent a valid number!');
Exit;
end;
sql:='update mmslibrary set MMS_ID='+Trim(NewText)+' where MMS_ID='+Stringlist.strings[node.Index*5];
end;
1:
sql:='update mmslibrary set MMS_Type="'+Trim(NewText)+'" where MMS_ID='+Stringlist.strings[node.Index*5];
2:
sql:='update mmslibrary set MMS_Smil="'+Trim(NewText)+'" where MMS_ID='+Stringlist.strings[node.Index*5];
4:
sql:='update mmslibrary set MMS_Subject="'+Trim(NewText)+'" where MMS_ID='+Stringlist.strings[node.Index*5];
end;
if currentdatabase.ExecuteSqlNoQurey(sql)= 1 then
ShowMessage('Save to Database sucessfully!')
else
ShowMessage('Error occurs while Saving to Database!');
Stringlist.strings[node.Index*5+Column]:=Trim(NewText);
DataTree.RootNodeCount:=stringlist.Count div 5 ;
DataTree.Refresh;
end;
TSPNumbersForm版本:
procedure TSPNumbersForm.VSTreeSPnumberNewText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; NewText: WideString);
var
sql:string;
begin
case Column of
0:
begin
if (StrToInt64Def(Trim(NewText),-1)=-1) then
begin
ShowMessage('"'+Trim(NewText)+'"'+'does not represent a valid number!');
Exit;
end;
sql:='update spnumbers set SP_SPID='+Trim(NewText)+' where SP_SPID='+Stringlist.strings[node.Index*7];
end;
1:
sql:='update spnumbers set SP_Name="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
2:
sql:='update spnumbers set SP_Nameforshort="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
3:
sql:='update spnumbers set SP_operationtype="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
4:
sql:='update spnumbers set SP_Code="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
5:
sql:='update spnumbers set SP_operationcode="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
6:
sql:='update spnumbers set SP_operationName="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
end;
if currentdatabase.ExecuteSqlNoQurey(sql)= 1 then
ShowMessage('Save to Database sucessfully!')
else
ShowMessage('Error occurs while Saving to Database!');
Stringlist.strings[node.Index*7+Column]:=Trim(NewText);
VSTreeSPnumber.RootNodeCount:=stringlist.Count div 7 ;
VSTreeSPnumber.Refresh;
end;
TTestNumberForm版本:
procedure TTestNumberForm.VSTreeTestNumberNewText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; NewText: WideString);
var
sql:string;
begin
case Column of
0:
begin
if (StrToInt64Def(Trim(NewText),-1)=-1) then
begin
ShowMessage('"'+Trim(NewText)+'"'+'does not represent a valid number!');
Exit;
end;
sql:='update testnumbers set TN_MSISDN='+Trim(NewText)+' where TN_MSISDN='+Stringlist.strings[node.Index*4];
end;
1:
sql:='update testnumbers set TN_Imsi="'+Trim(NewText)+'" where TN_MSISDN='+Stringlist.strings[node.Index*4];
2:
sql:='update testnumbers set TN_Location="'+Trim(NewText)+'" where TN_MSISDN='+Stringlist.strings[node.Index*4];
3:
sql:='update testnumbers set TN_Description="'+Trim(NewText)+'" where TN_MSISDN='+Stringlist.strings[node.Index*4];
end;
if currentdatabase.ExecuteSqlNoQurey(sql)= 1 then
ShowMessage('Save to Database sucessfully!')
else
ShowMessage('Error occurs while Saving to Database!');
Stringlist.strings[node.Index*4+Column]:=Trim(NewText);
VSTreeTestNumber.RootNodeCount:=stringlist.Count div 4 ;
VSTreeTestNumber.Refresh;
end;
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者