＝＝怎样复制、粘贴edit的值？

Question

如题，谢谢！

Answer 1

一个简单的办法就是用个全局变量，比如temp;
当点击“复制”的时候：temp := edit1.text;
当点击“粘贴”的时候: edit2.text := temp;

Answer 2

或者用剪切板
----------------------------
可以这么做：uses  clipbrd;procedure tform1.button1click(sender:tobject);
begin
  edit1.selectall;
  edit1.copytoclipboard;
end;procedure tform1.button2click(sender:tobject);
begin
  edit2.pastefromclipboard;
end;单击Button1，edit1的Text将会复制进剪贴板
单击Button2,Edit2的Text将会被剪贴板的内容替掉

Answer 3

TActionList控件中Standard Action中有你需要的。