我要將樹和數據庫連起來,
進行修改刪除新增動作,
請問我該如何做?還有,就是我該如何刷新會使速度最快?
還要將原來有展開的結點在刷新後也要展開?
進行修改刪除新增動作,
請問我該如何做?還有,就是我該如何刷新會使速度最快?
還要將原來有展開的結點在刷新後也要展開?
解决方案 »
- 将指定的ico,或bmp图标增加到Imagelist
- 起名 汪姓 女孩 非诚勿进
- 如何将DBGrid里查询SQL里的数据结果,通过一个SpeedButton按钮导出到Excel里?
- 如何判断光标焦点在Edit1上面?如何判断光标目前焦点在哪个控件上面?
- wwdbgrid的系列问题解决之道
- 有没有可以放Delphi软件的便携式数据采集工具呢?
- 一个简单的数据库操作问题
- 请问各位哪里有凭证录入的控件啊
- forgot2000的散分帖:庆祝CSDN改版,调查一下大家平时空闲时间喜欢做什么?一定给分!
- 连Access库时常出现From语句出错,怎么办?请指教!谢谢!
- IDENTITY的困惑
- 哪位大哥有更好的办法,讨论一下!
为了使刷新速度增加,就要只显示看到的部分,对于要展开的节点,在展开的时候再增加它的子节点,windows的目录树就是这么做的。
至于全部展开树的所有结点,只是树的一个函数而已,好像是叫做fullexpand,具体怎么拼写记不清楚了,呵呵
1、count,节点个数。
2、item[index] ,通过index得到节点。二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有:
AddFirst添加第一个根节点。由此函数添加的节点总排在前面,除非后来又使用此函数添加了一个节点,则后添加的节点将排在前面。该函数返回新添加的节点。
AddChildFirst添加第一个子节点,要求有父节点作为其参数。返回新添加的节点。
AddChild添加一个子节点,要求有父节点作为其参数。返回新添加的节点。
Add添加一个兄弟节点,要求有兄弟节点作为其参数。返回新添加的节点。三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的操作有:
GetFirstNode() 得到根节点。
然后配合TTreeNode.GetNext(),就可以访问所有的节点。四、建树举例:var
root_node,cur_node:TTreeNode;
begin
root_node:=AddFirst(nil,'根节点1');
cur_node:=addChildfirst(root_node,nil,'根节点1_child1');
add(cur_node,'根节点1_child2');
root_node:=Add(nil,'根节点2');
AddChildFirst(root_node,''根节点2_child1');
end; 五、事件触发:
当从一个节点跳到另一个节点,会触发TTreeView.OnChange事件。该事件中,将传递node,即当前被选中的节点。当修改一个节点的text时,会触发TTreeView.onEdit事件。
六、将节点和节点所对应的数据联系起来
对于每个TTreeNode,有个Data属性,可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的数据。
1.我们先定义一个数据结构,作为记录我们要记录的数据。如:
type
PMyData=^TMyData;
TMyData=Record
sFName:string;
sLName:String;
nIndex:integer;
end;2.然后,创建数时,将节点和节点数据联系起来:
procedure TForm1.Button1Click(Sender: TObject);
var
myshuju: PMyData
cur_node:TTreeNode;
begin
New(MyRecPtr); //记住,一定要先分配内存。有几个节点,就要分配几次内存。
myshuju^.FName:=Edit1.Text;
Myshuju^.LName := Edit2.Text;
TreeViewIndex := StrToInt(Edit3.Text);
with TreeView1 do
begin
cur_node:=items.AddFirst(nil,'first');
cur_node.data:=myshuju;
end;
end;3.当我们选中一个节点时,就可以使用我们的数据了。
procedure TForm1.TreeView1Change(Sender:TObject;Node:TTreeNode);
begin
if node.data<>nil then
self.label1.caption:=pmyData(node.data)^.Fname+pmyData(node.data)^.Lname
end;
七、一般使用流程:
1、添加全局变量:
b_first:boolean; //记录是否是第一次访问节点,因为此时数据还未准备好,而一旦访问节点就会触发OnChange事件,在此事件处理函数中也许会出错。
2、在FormCreate中,
a、设置b_first:=true;
b. 创建数并将节点与数据联系。
3、在FormShow中
设置b_first:=false;
4.在事件OnChange中处理节点被选中事件。
5.在Edit中处理节点被修改Text事件。
并调用OnChange.
6.在 TreeView.Destory中
释放Data 中指向的内存空间。
真的太感激
youhuiyun(youhuiyun)
了