delphi编程treeview,memo

Posted 2023-04-21

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(标题, 内容) 插入到数据库就行了,
展现看上面我写的展现部分. 参考技术A var
NodeKey:TNode;
>>>
//一般都是通过数据库读入的数据这样给TreeView赋值的，你可以试着用下看
//"a"这样的值可以是ADO读取的数据
NodeKey = TreeView.nodes.add(,,"a","父节点")
NodeKey = TreeView.nodes.add("a",4,"b","子节点")

转Delphi中Memo显示行号列号

http://www.alonely.com.cn/Delphi/20160814/8912.html

实例说明本例是个光标应用的简单技巧，希望通过这个例子的学习后能举一反三。Delphi中像这样简单而又实用的例子还有很多，只要平时多注意积累就能写出简洁、执行效率高的代码。编程思路直接向Memo组件发送消息EM_LineFromChar并检测返回值，即可获知此组件中光标所在的行号，向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列号

实例说明

本例是个光标应用的简单技巧，希望通过这个例子的学习后能举一反三。Delphi中像这样简单而又实用的例子还有很多，只要平时多注意积累就能写出简洁、执行效率高的代码。

编程思路 直接向Memo组件发送消息EM_LineFromChar并检测返回值，即可获知此组件中光标所在的行号，向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列号。

编程步骤 先在Form上放置三个Label组件，并在程序代码的前面声明下面这三个变量为整型数，即： VarLpos,Cpos,Linelength:integer； 其中Lpos是行的值(按照Memo的规定，第一行为O)，Cpos是字符的位置，LineLength是当前行的字符总个数。然后，再将下面的七行程序代码分别加入Memo1的OnMouseDown和OnKeyDown的事件代码处即可。Lops:=SendMessage(Memo1.Handle,EM_LineFromChar,Memol.SelStart,0);Cpos:=SendMessage(Menol.Handle,EM_LineIndex,Lpos,0);LineLength:=SendMessage(Memol.Handle,EM_LineLength,Cpos,0);Cpos:=Memol.SelStart-CPos; Label1.Caption:=IntToStr(ipos);Label2.Caption:=IntToStr(cpos); Label3.Caption:=IntToStr(linelength); 完成后，在执行程序时，随着在Memo组件中的编辑操作，Labell、Label2和Label3就将显示出相对应的当前行值、字符位置与当前行的字符总个数了。

编程总结 请大家结合“获取RichEdit组件中光标所在的行号”一起学习，实际上两者极为相似。 附另一篇：

一、如何得知当前行号
　　用RichEdit（或者memo）控件制作文本编辑器时，通过访问lines count属性可以得到总行数，但是若想知道光标当前所在行的行号就麻烦了，因为delphi没有提供这个属性。要实现这个编辑器必备功能，就须调用 em_ LineFromChar。请试试下面的程序。
　　先在窗口中布置一个RichEdit或者memo（命名为editor），以及一个button。在button的onclick事件中写入下列代码。
　　var
　　CurrentLine:Integer;
　　begin
　　CurrentLine:=Editor Perform(em_ LineFromChar,SFFFF,0);
　　Application MessageBox(PChar(′当前行号是′＋IntToStr(CurrentLine)),′消息′,mb_ iconinformation);
　　end;
　　需要注意的是，第一行的行号为零。
　　二、如何撤消操作（undo）
　　对于memo来说，实现undo是不需编程的，只要让popupmenu属性为空，运行时就能用鼠标右键激活一个常用操作菜单，其中包括撤消、剪切、复制、粘贴、删除和全选六项。
　　但可惜的是，这一招对于功能强大的RichEdit控件居然行不通，害得我们还要自己设计一个popupmemu。当你用 CutToClipBoard等语句轻松而顺利地完成了“剪切”等功能，接着便会无奈地发现，竟找不到undo或cancel之类的语句来执行“撤消”。
　　这时你需要这样处理：
　　RichEdit1 Perform(EM_UNDO,0,0);
　　另外还应检查是否允许撤消，从而开启或关闭弹出菜单中的“撤消”项：
　　Undo1 Enabled:=RichEdit Perform(EM_CANUNDO,0,0)<>0;
　　以上程序在Delphi3中调试通过。