2 lhyzj0804 lhyzj0804 于 2017.09.15 10:14 提问

关于treeview中gotobookmark的问题请教,急。。。

做一个树形分类,treeview点击代码如下,前台界面一点击就出现参数不正确的错误提示,烦请各位大侠给予指导(dephi2010),急。。。。
procedure TFrmmaterialsort.TreeView1Change(Sender: TObject;
Node: TTreeNode);
begin
with dtmdlmaterial do
begin
relatedele;
if node.Level=1 then
begin
sortonerelate;
atsortone.GotoBookmark(node.Data);
end
else
if node.Level=2 then
begin
sorttworelate;
atsorttwo.GotoBookmark(node.Data);
end
else
if node.Level=3 then
begin
sortthreerelate;
atsortthree.GotoBookmark(node.data);
end
else
if node.Level=4 then
begin
sortfourrelate;
atsortfour.GotoBookmark(node.data);
end;
end;
end;

Csdn user default icon
上传中...
上传图片
插入图片