请教，复制怎么实现？感谢！

slivan 发布于 2011-06-14 22:58， 1696 次点击

求教以下问题，非常感谢！

1. 创建一Label(或者Edit) 和一个button
2. 如何实现通过这个button吧Label->Caption（或者Edit->Text）复制到剪贴板，然后可以直接Ctrl+V进行粘贴呢？？

尝试以下方式，调试可以过，但是ctrl+v 粘贴不出来 abc =_=#
if(OpenClipboard(NULL))
{
char *p = "abc";
EmptyClipboard();
SetClipboardData(CF_TEXT,p);
CloseClipboard();
}

3 回复

slivan2011-06-15 20:25

顶上去，烦请高手不吝帮忙，非常感谢！

yuutian2011-06-23 20:22

你这个没有设置键盘ctrl+v来响应这个功能

yuutian2011-07-01 15:09

你试一下这个，在键盘中按下ctrl+c  和crtl+v　实现黏贴和复制：
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
    if shift=[ssctrl] then
    if key=67 then
      memo1.copytoclipboard
    else if key=86 then
     memo1.pastefromclipboard;
end;