Delphi Tclipboard（1）

1. 剪贴文本AsText、SetTextBuf、GetTextBuf

Clipboard.AsText := Text;

Clipboard.SetTextBuf(PChar(Text)); {按参数类型要求, 需要转换一下}  ShowMessage(Clipboard.AsText);   {Form1}

Clipboard.AsText := Text;  Clipboard.GetTextBuf(arr, Length(arr));

 

2.剪贴图片Assign、HasFormat         ； CF_BITMAP 常量表示图片

Clipboard.Assign(Image1.Picture); {把 Image1 中的图片放入剪切板} {现在在图像软件中都可以粘贴了, 可以用 Windows 画图板试试}

{如果当前剪切板中的东西不是图片, 就退出}