1. Clipbrd函数
function Clipboard: TClipboard;:若应用程序从未使用过剪贴板,则调用该函数形成新的剪贴板;若之前使用过剪贴板则返回使用过的剪贴板。
属性: AsText:将剪贴版的内容作为一个字符串输出;方法:HasFormat:指示剪贴板中是否包含指定格式的数据。例如:
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;:利用一个新的剪贴板对象代替全局的剪贴板。例如:
var
Myclip : TClipboard;
begin
Myclip := TClipboard.Create;
SetClipboard(Myclip);
Image1.Picture.Assign(Myclip);
end;