问一个简单的复制函数(50分)
edit1.text:='要复制内容';
按下button1后--将edit1.text内容复制起来---然后我要CTRL+V可以粘帖出来的
[解决办法]
Clipboard.AsText:= edit1.text;
[解决办法]
http://topic.csdn.net/t/20020326/20/601900.html
[解决办法]
先定义一个全局变量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中
