在我的程序中实现Ctrl+C.Ctrl+X.Ctrl+v

Question

RichEdit1.SelectAll;
  RichEdit1.CopyToClipboard;
  Edit1.Clear;
  Edit1.PasteFromClipboard;

Answer 1

chechy(我爱洁洁):老大我想在整个程序的任何地方都实现,不是只在RICHEDIT中

Answer 2

那么可以考虑用Clipboard对象。

Answer 3

TEdit(Screen.ActiveControl).CopyToClipboard;
  TEdit(Screen.ActiveControl).CutToClipboard;
  TEdit(Screen.ActiveControl).PasteFromClipboard;