uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.AsText := Text; ShowMessage(Clipboard.AsText); {Form1} end; --------------------
Delphi操作剪贴板
猜你喜欢
转载自www.cnblogs.com/m0488/p/9692459.html
今日推荐
周排行