close

這是今天寫程式遇到想要加入的複製功能，簡單好用！

http://blog.bestlong.idv.tw/2007/04/02/delphi-%E5%B0%87%E5%AD%97%E4%B8%B2%E8%A4%87%E8%A3%BD%E5%88%B0%E5%89%AA%E8%B2%BC%E7%B0%BF/

想要在Delphi程式中簡單的操作系統的剪貼簿，可以使用下列方法：

uses Clipbrd;
procedure TForm1.btnCopyClick(Sender: TObject);
begin
  Edit1.CopyToClipboard;//將 Edit1 的文字複製到剪貼簿
  Clipboard.AsText := Edit1.Text;//同樣將 Edit1 的內容複製到剪貼簿(需要 uses Clipbrd;)
  Edit2.PasteFromClipboard;//將剪貼簿內容複製到 Edit2
  Clipboard.Clear;//清空剪貼簿(需要 uses Clipbrd;)
end;

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 NoMoney NoHoney 的頭像
    NoMoney NoHoney

    No Money No Honey

    NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄