大家请帮下忙!这个问题烦了我一个多月了!有关如何暂停和继续 richedit 3.0 中撤消功能 有VC的代码了!但在Delphi不知如何实现!(100分)

网址是:http://support.microsoft.com/kb/199852/zh-cn<br><br>它也可以暂停和继续 Richedit 3.0 控件中撤消操作。 ITextDocument 界面中 Undo() 方法接受长值 " tomFalse " 以暂停撤消操作和 " tomTrue " 以继续撤消操作。 此方法完全中止撤消操作 ； 也就是说, 清空撤消缓冲区。 撤消缓冲区再次, 恢复操作时从开始填充。 <br><br>是否需要撤消操作执行前挂起, 恢复撤消, 后然后, tomFalse 必须与 " tomSuspend " 替换， tomTrue 必须被替换为 " tomResume "。 撤消挂起时此方法保留甚至撤消缓冲区的内容。<br><br>代码如下:<br>pITextDocument-&gt;Undo(tomFalse,NULL); //Prevents Undo and empties buffer.<br><br>pITextDocument-&gt;Undo(tomTrue,NULL); //Restarts Undo again.<br><br>pITextDocument-&gt;Undo(tomSuspend,NULL); //Suspends Undo. 暂停<br><br>pITextDocument-&gt;Undo(tomResume,NULL); //Resumes Undo. &nbsp;继续

help

help

自己搞定!哈哈^