如何撤消操作（undo） 对于memo来说，实现undo是不需编程的，只要让popupmenu属性为空，运行时就能用鼠标右键激活一个常用操作菜单，其中包括撤消、剪切、复制、粘贴、删除和全选六项。 但可惜的是，这一招对于功能强大的RichEdit控件居然行不通，害得我们还要自己设计一个popupmemu。当你用CutToClipBoard等语句轻松而顺利地完成了"剪切"等功能，接着便会无奈地发现，竟找不到undo或cancel之类的语句来执行"撤消"。 这时你需要这样处理： RichEdit1Perform(EM_UNDO,0,0); 另外还应检查是否允许撤消，从而开启或关闭弹出菜单中的"撤消"项： Undo1Enabled:=RichEditPerform(EM_CANUNDO,0,0)<>0; 以上程序在Delphi5中调试通过。
原理就是comsun(comsun)所说的.用一个连表,保存光标的位置,操作,和数据即可.