• 闪存
• 博客
• 发言 小组
• 投递 新闻
• 提问 博问
• 添加 收藏
• 文库

Delphi 请问如何让使用代码设置Memo的文本 使用Ctrl+Z撤消有效

0

悬赏园豆：5 [已解决问题] 解决于 2013-10-16 20:17

delphi Memo的撤销问题
当手动修改Memo里面的文本时使用Ctrl+Z可以撤销
当使用代码设置Memo文本时如 Memo1.text:='aaaaa';设置后 Ctrl+Z 撤销就无效了
请问如何让使用代码设置的文本 Ctrl+Z撤销有效

delphi TMemo Undo 撤消

问题补充：

问题已经解决了

http://zhidao.baidu.com/question/303948287703292044.html?quesup2&oldq=1

XE2011 | 初学一级 | 园豆：193
提问于：2013-10-15 17:34

显示帮助

使用"Ctrl+Enter"可进行快捷提交，评论支持部分 Markdown 语法：[link](http://example.com) _italic_ **bold** `code`。

< >

分享

分享您的问题

var
  nPC: PChar;
begin
  Memo1.SelectAll; {选择所有内容}

  GetMem(nPC, 5);
  StrPCopy(nPC, '11111');
  SendMessage(Memo1.Handle, EM_REPLACESEL, 1, Integer(nPC)); {替换所选内容, WParam为1代表可以撤销, 0为不可撤销}
  FreeMem(nPC, 5);
end;