==怎样复制、粘贴edit的值? 如题,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 一个简单的办法就是用个全局变量,比如temp;当点击“复制”的时候:temp := edit1.text;当点击“粘贴”的时候: edit2.text := temp; 或者用剪切板----------------------------可以这么做: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将会被剪贴板的内容替掉 TActionList控件中Standard Action中有你需要的。 关于使用ADO创建数据表 如何让等待的线程让出cpu 报表问题??在线等?这个问题还不解决就要失业拉?各位高手帮帮忙? 分辨率问题 如何写DELPHI一个数据库程序的安装程序 请问用SQL修改当前记录的值?在线等。 如何使TreeView里面的不同节点呈现不同颜色? 怎样在edit中画按钮 紧急求助 如何取得ADOTable表的一个字段的最大值? 谢谢您!!! 我这么做可以么?怎么释放一个Application的所有资源? ◆◆◆◆谁再骂日本人是猪,我灭了他◆◆◆◆
当点击“复制”的时候:temp := edit1.text;
当点击“粘贴”的时候: edit2.text := temp;
----------------------------
可以这么做: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将会被剪贴板的内容替掉