问一个简单的复制函数(50分)

Question

edit1.text:='要复制内容';按下button1后--将edit1.text内容复制起来---然后我要CTRL+V可以粘帖出来的 

Answer 1

Clipboard.AsText:= edit1.text;   

Answer 2

http://topic.csdn.net/t/20020326/20/601900.html

Answer 3

先定义一个全局变量X，定义如下，按F12，后在{$R *.dfm}下：
var x:string;
后在buttion1单击事件下：
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=s;//将要复制的内容存于S中
end;end.
在edit2的onkeypress中写代码：
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key in [VK_CTRL,V] then 
edit2.text:=s;
end;end.
按ctrl和v时，将要复制的内容写于EDIT2中