Question

delphi 无法复制剪贴板上的内容

请教各位大虾，我是照一本书做的与剪贴板交换数据， 按钮"button2"是把memo1中的文本复制到剪贴板，按钮"button3"是把剪贴板中的内容复制到memo2中.........memo1的内容老是复制不到剪贴板上，但是剪贴板上的内容到是能复制到memo2中，我也在前面用了uses clipbrd了，但是还是不行。

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.CopyToClipboard;
end;

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

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.SelectAll;//如果不加这句，你需要在memo1中选中一些文本再复制
memo1.CopyToClipboard;
end;