Delphi实现复制粘贴功能

2025-04-05 01:32:28

推荐回答（3个）

回答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;

回答2：

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

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

回答3：

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

end;

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