Question

Delphi实现复制粘贴功能

在窗体上我放置了两个Button，一个为copy，一个为paste，然后再放一个memo1。我想实现的是当我点击copy的时候就会选中memo1中的内容并实现复制该内容，当我点击paste按钮的时候实现粘贴。请问怎么实现呢？希望能把代码写出来！谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.SelectAll;
Memo1.CopyToClipboard;
Memo1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.SelectAll;
Memo1.PasteFromClipboard;
Memo1.SetFocus;
end;

Answer 2

memo1.CopyToClipboard; //将Memo1中选中的内容放到剪贴板上

memo1.PasteFromClipboard; ////将剪贴板上的内容放到Memo1中

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.SelectAll;
memo1.CopyToClipboard;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo2.PasteFromClipboard;
end;