Delphi 调用Clipboard 收集剪切板信息

本文整理自网络，侵删。

 
uses Clipbrd;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Clipboard.HasFormat(CF_TEXT) then
  begin
  if Memo1.Lines.IndexOf(Clipboard.AsText)=-1 then
  begin
  Memo1.Lines.Add(Clipboard.AsText);
  end;
  //Clipboard.Clear;
  end
else
 // MessageDlg('There is no text on the Clipboard',mtInformation, [mbOK],0);
end;
 

相关阅读 >>

Delphi 在桌面中嵌入窗体

Delphi 最简单的判断数字函数

Delphi替换字符串中的单引号

Delphi使用ado读写excel文件

Delphi 取控件下的图象

decodedate：从一个tdatetime变量中提取年、月、日数值

Delphi ini 文件操作记要: 使用 tmeminifile

Delphi dbgrid中实现copy、paste功能

Delphi 双击listbox1内容，数据插入到memo1/synedit1鼠标指定位置

Delphi驱动开发研究第一篇--实现原理

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 调用Clipboard 收集剪切板信息