Delphi的windows剪切板操作函数
2016-03-08 15:48
519 查看
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;
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;
相关文章推荐
- delphi 路径函数
- Delphi RichEdit操作
- delphi2010泛型练习
- Delphi richedit获取选中文字
- Delphi RichEx 图像
- Delphi TRichEdit加载word内容
- Delphi RICHEDIT中插入图象
- Delphi实现条码生成与打印实现代码
- delphi 怎么将一个文件流转换成字符串(String到流,String到文件,相互转化)
- 初学delphi
- delphi的日志组件log4d的内存泄露问题
- Delphi判断是否有全屏程序
- Delphi 712操作word
- Delphi中编辑word
- Delphi读取Word
- Delphi word 颜色
- delphi 操作 word
- Delphi XE8 安卓摇一摇功能的实现
- Delphi 操作Word怎么控制光标的位置
- delphi ole word