5,390
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
雁过留毛 2011-10-03
- 打赏
- 举报
...
雁过留毛 2011-10-02
- 打赏
- 举报
...
fengchuixuelai 2011-10-01
- 打赏
- 举报
顶一下
s11ss 2011-10-01
- 打赏
- 举报
push,pop
jfhyn 2011-09-30
- 打赏
- 举报
procedure InsertSymbol(AChar: WideChar);
var
S: WideString;
begin
with TClipboardAccess(Clipboard) do
begin
Open;
try
S := AChar;
SetBuffer(CF_UNICODETEXT, PWideChar(S)^, (Length(S) + 1) * SizeOf(WideChar));
finally
Close;
end;
end;
Editor.PasteFromClipboard;
end;
var
S: WideString;
begin
with TClipboardAccess(Clipboard) do
begin
Open;
try
S := AChar;
SetBuffer(CF_UNICODETEXT, PWideChar(S)^, (Length(S) + 1) * SizeOf(WideChar));
finally
Close;
end;
end;
Editor.PasteFromClipboard;
end;
雁过留毛 2011-09-30
- 打赏
- 举报
[Quote=引用 7 楼 jfhyn 的回复:]
插入当前日期,通常是先把日期字符串拷贝到剪贴板上,然后再粘贴.
Editor.CopyToClipboard;
Editor.PasteFromClipboard;
Editor.Undo
[/Quote]
我觉得用剪贴板或是用虚拟键输入虽然可以UNDO了但都不像正解，请高人继续指点...
插入当前日期,通常是先把日期字符串拷贝到剪贴板上,然后再粘贴.
Editor.CopyToClipboard;
Editor.PasteFromClipboard;
Editor.Undo
[/Quote]
我觉得用剪贴板或是用虚拟键输入虽然可以UNDO了但都不像正解，请高人继续指点...
jfhyn 2011-09-30
- 打赏
- 举报
插入当前日期,通常是先把日期字符串拷贝到剪贴板上,然后再粘贴.
Editor.CopyToClipboard;
Editor.PasteFromClipboard;
Editor.Undo
Editor.CopyToClipboard;
Editor.PasteFromClipboard;
Editor.Undo
lyhoo163 2011-09-30
- 打赏
- 举报
路过。
雁过留毛 2011-09-30
- 打赏
- 举报
...
jingtuzhong 2011-09-30
- 打赏
- 举报
RichEdit1.SelText := '邹家华 '
bdmh 2011-09-29
- 打赏
- 举报
自己做undo
雁过留毛 2011-09-29
- 打赏
- 举报
[Quote=引用 1 楼 bdmh 的回复:]
这样就会在光标处插入字符串，如果要实现无限制的undo，redo，可以自己写，参考http://blog.csdn.net/bdmh/article/details/6426564
[/Quote]
现在的问题是，用richedit1.SelText := 'aaaaaaaaaa';似乎一次undo都不行啊？
这样就会在光标处插入字符串，如果要实现无限制的undo，redo，可以自己写，参考http://blog.csdn.net/bdmh/article/details/6426564
[/Quote]
现在的问题是，用richedit1.SelText := 'aaaaaaaaaa';似乎一次undo都不行啊？
bdmh 2011-09-29
- 打赏
- 举报
richedit1.SelText := 'aaaaaaaaaa';这样就会在光标处插入字符串，如果要实现无限制的undo，redo，可以自己写，参考http://blog.csdn.net/bdmh/article/details/6426564
