Delphi操作剪贴板

 

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Clipboard.AsText := Text;
  ShowMessage(Clipboard.AsText); {Form1}
end;
--------------------

 

posted @ 2018-09-23 13:04  麦麦提敏  阅读(1047)  评论(0)  编辑  收藏  举报