delphi编程treeview,memo

来源：百度知道 编辑：UC知道 时间：2024/09/26 04:28:53
delphik中新建一程序，左边为treeview控件，右边为memo控件，左边treeview的每一个结点保存memo中的内容，即点击每一个结点就可以显示memo中的内容，相当于是一个电子书，最好再添一个按扭，该按扭的功能可以达到点击以后，添加结点，结点的标题为自动提取memo的第一行作为标题。
请帮忙，谢谢！
比如我在memo中输入如下内容，
这里是题目1
这里是内容1
-----------
然后点击一按扭，按扭的实现功能是把memo中的内容添加到treeview中的一个节点中，且这个标题是这里是题目1
然后我又在memo中输入如下内容，
这里是题目2
这里是内容2
-----------
然后点击一按扭，按扭的实现功能是把memo中的内容添加到treeview中的一个节点中，且这个标题是这里是题目2
然后我随便点击哪个treeview中的结点，都可以得到其中的内容，比如，我点击treeview中的这里是题目1，得到（这里是题目1，这里是内容1），点击treeview中的这里是题目2，得到（这里是题目2，这里是内容2）

首先,想问你 是想用数据库实现不?
如果是, treeview每个节点存数据库中对应的ID

然后在treeview的onchange事件里通过ID获取数据库中对应的 内容 显示在Memo里就可以了.
----------------------
以上是点tree 展现memo的功能, 再给你说说, 点按钮 把memo的数据存入的功能

按钮里写
memo.lines[0] 此值为标题
memo.lines[1]...[n] 是内容
然后写sql insert into 你的表 (ID, memo) values(标题, 内容) 插入到数据库就行了,
展现看上面我写的展现部分.

var
NodeKey:TNode;
>>>
//一般都是通过数据库读入的数据这样给TreeView赋值的，你可以试着用下看
//"a"这样的值可以是ADO读取的数据
NodeKey = TreeView.nodes.add(,,"a","父节点")
NodeKey = TreeView.nodes.add("a",4,"b","子节点")