Delphi的windows剪切板操作函数

Posted 2020-06-19 张志峰的博客

 

1. Clipbrd函数

function Clipboard: TClipboard;：若应用程序从未使用过剪贴板，则调用该函数形成新的剪贴板；若之前使用过剪贴板则返回使用过的剪贴板。

属性： AsText：将剪贴版的内容作为一个字符串输出；方法：HasFormat：指示剪贴板中是否包含指定格式的数据。例如：

[delphi] view plain copy

procedure TForm1.Button1Click(Sender: TObject);
begin
if Clipboard.HasFormat(CF_TEXT) then
Memo1.Lines.Add(Clipboard.astext);
end

2. SetClipboard函数

function SetClipboard(NewClipboard: TClipboard): TClipboard;：利用一个新的剪贴板对象代替全局的剪贴板。例如：

[delphi] view plain copy

var
Myclip : TClipboard;
begin
Myclip := TClipboard.Create;
SetClipboard(Myclip);
Image1.Picture.Assign(Myclip);
end;