uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.AsText := Text; ShowMessage(Clipboard.AsText); {Form1} end; --------------------
uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.AsText := Text; ShowMessage(Clipboard.AsText); {Form1} end; --------------------
转载于:https://www.cnblogs.com/m0488/p/9692459.html