在Form上放一个EDIT,两个BUTTON,一个复制,一个粘贴,当我在文本里复制以后,点Form上的粘贴BUTTON,Edit显示我在文本里复制的数,而不是按右键粘贴

解决方案 »

  1.   

    复制文本到剪贴版和从剪贴版取文字    
      uses ClipBrd; 
    procedure StrToClipbrd(StrValue: string);varA: array[0..255] of char;beginStrPCopy(A, StrValue);Clipboard.SetTextBuf(A);end;function GetStrFromClipbrd : string;beginif Clipboard.HasFormat(CF_TEXT) thenresult := Clipboard.AsTextelsebeginShowMessage('There is no text in the Clipboard!');result := '';end;end; 
     
     
      

  2.   

    在粘贴button中写procedure TForm1.Button1Click(Sender: TObject);
    begin
     edit1.PasteFromClipboard;
    end;