本文整理自网络,侵删。
uses Clipbrd;
procedure TMainForm.UniButton3Click(Sender: TObject);
begin
Clipboard.AsText:=UniMemo1.Text;
end;
相关阅读 >>
Delphi 将 4 个 byte 合成 1 个 integer 的五种方法 - 回复 "三足乌" 的问题
Delphi blockread和blockwrite读写文件
更多相关阅读请进入《Delphi》频道 >>