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;

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()