delphi 剪切板变量_Delphi监视剪贴板内容
冲浪的年代,用过网络蚂蚁的人肯定不少,其中一项监视剪贴板变化的功能让人感觉到不少体贴。本文将介绍在Delphi中如何使用“体贴板”,来丰富自己的软件功能。
Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。通常它应该至少能显示三种普通格式的内容:文字CF_TEXT、位图CF_BITMAP、元文件CF_METAFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口,它们都能够接受当前发送到剪贴板的内容。我们大致按照以下步骤在窗口中处理有关剪贴板的内容。
首先,使用SetClipboardViewer(HWND)函数向剪贴板观察链中加入一个观察窗口。当剪贴板的内容发生变化时,该窗口会接收到一个WM_DRAWCLIPBOARD消息。该函数需要传递的参数是观察窗口的句柄。返回值也是一个窗口句柄类型,标识了将要加入的下一个窗口。
然后,响应WM_DRAWCLIPBOARD消息处理剪贴板内容的变化。
最后,在程序退出或关闭时需要调用ChangeClipboardChain函数来将自己从观察链中删除。然后调用SendMessage函数把这些消息传递到观察链中的下一个观察窗口。函数ChangeClipboardChain原型如下:
BOOL ChangeClipboardChain(
HWND hWndRemove, //将要删除的窗口的句柄
HWND hWndNewNext //观察链中下一个窗口的句柄
);
Delphi的clipbrd.pas单元中定义了一个类TClipboard,它封装了Windows剪贴板,简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard,该函数用于返回TClipboard对象实例,使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍。
方法:
Assign:将指定的对象放入剪贴板中。
Open:打开剪贴板,防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。
Close:关闭剪贴板。应该与打开剪贴板成对使用。
Clear:清空剪贴板。
GetAsHandle:返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。
GetComponent:返回剪贴板中的一个控件。Delphi自己使用得多。
HasFormat:查询剪贴板中是否有指定格式的内容。
属性:
AsText:用于读写剪贴板文字内容。
FormatCount:读剪贴板中数据格式的种数。
Formats:返回剪贴板中各种格式的列表。
此外,Delphi中的许多控件中也封装了有关剪贴板处理的操作。下面的一个处理剪贴板的简单例子,只是将剪贴板的文字内容显示为窗口标题。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
Clipbrd;//加入clipbrd单元
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
private
{ Private declarations }
public
NextClipHwnd:HWND;//观察链中下一个窗口句柄
procedure WMDrawClipBoard
(var AMessage:TMessage);
message WM_DRAWCLIPBOARD;
//处理WM_DRAWCLIPBOARD消息过程
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.WMDrawClip
Board(var AMessage: TMessage);
begin
//将WM_DRAWCLIPBOARD
消息传递到下一个观察链中的窗口
SendMessage(NextClipHwnd,AMessage.
Msg,AMessage.WParam,AMessage.LParam);
//查询剪贴板中特定格式的数据内容
if (Clipboard.HasFormat(CF_TEXT) or
Clipboard.HasFormat(CF_OEMTEXT)) then
begin
//处理剪贴板中内容
Caption:=Clipboard.asText;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//获得观察链中下一个窗口句柄
NextClipHwnd:=SetClipBoardViewer(Handle);
end;
procedure TForm1.FormClose
(Sender: TObject; var Action: TCloseAction);
begin
//从观察链中删除本观察窗口
ChangeClipboardChain(Handle,NextClipHwnd);
//将WM_DRAWCLIPBOARD
消息传递到下一个观察链中的窗口
SendMessage(NextClipHwnd,WM_
CHANGECBCHAIN,Handle,NextClipHwnd);
end;
end.
需要注意的是,在处理剪贴板内容变化的消息WM_DRAWCLIPBOARD的过程和关闭窗口事件中使用函数sendmessage把WM_DRAWCLIPBOARD或WM_CHANGECBCHAIN消息传递到观察链中的下一个窗口是必要的,否则有可能其他窗口不能获得类似消息。另外,在使用网络蚂蚁时笔者曾经碰到不能设置剪贴板格式的情况,在此提醒读者注意检查RegisterClipboardFormat等函数的返回值。
delphi 剪切板变量_Delphi监视剪贴板内容相关推荐
- delphi 剪切板变量_delphi剪切板-监视剪贴板
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ...
- 剪切板 html 查看器,剪贴板历史查看器
剪贴板查看器是一款可以帮助您查看剪贴板历史信息的工具.大家都知道电脑自带的剪贴板只会记录最后一次复制的内容吧,而这款软件就不一样了,它可以在启动后为您记录所有的复制内容,以便您查看或者再次使用. 剪贴 ...
- 微信html5复制剪切板,微信h5实现复制内容到剪贴板,两种方法
先介绍第一种,这种方法对ios有一些不兼容,不过也看运气 先写HTML内容 微信:22 复制 JS代码 首先引入jq $(".copy")[0].onclick = functio ...
- 关于Ansi版Delphi剪切板中文乱码的问题
Ansi版Delphi的剪贴板也是用Ansi字符串实现的,Clipboard.AsText是用CF_TEXT方式,设置和获取的都是AnsiString类型,处理中文时就是乱码,直接改Clipbrd单元 ...
- Win10清空剪切板内容的方法介绍
剪切板是用户最经常使用的系统功能,可以对想要操作的内容进行临时缓存,但是长时间对里面的内容不清理的话,就会造成系统卡顿.下面小编就给大家介绍一下Win10清空剪切板内容的方法. 操作过程: 1.在Wi ...
- html粘贴excel内容,如何用JS解析剪切板里的excel内容
前言 这次记录的是昨晚一个想法:把excel内容复制到剪切板并转成自己想要的json格式,核心是要把excel内容转json,这部分主要看excel的格式和json如何业务的映射,不展开.倒是通过实践 ...
- html5读取剪切板 内容,实践笔记:js解析剪切板里的excel内容
这次记录的是昨晚一个想法:把excel内容复制到剪切板并转成自己想要的json格式,核心是要把excel内容转json,这部分主要看excel的格式和json如何业务的映射,不展开.倒是通过实践,收获 ...
- Visual Studio 剪切板新特性
以前开始学习编程时,一直使用Borland的开发工具,从TC2.0到BC3.1,再到BCB,delphi,每次更新工具或者版本时,无不为其人性化的新特性.新功能而陶醉不已.在BCB6,delphi6中 ...
- [转载]C# 剪切板编程 Clipboard
C#定义了一个类System.Windows.Forms.Clipboard来简化剪切板操作,这个类有一个静态方法,主要有: Clear 清除剪切板中的所有数据: ContainsData,Conta ...
- Web前端剪切板文本分享到文件发送
注意:本文Demo请点击文末"阅读原文"方便查看. 前言 现在前端富交互能力越来越强,也有很多产品基于前端技术进行离线应用开发或在线应用体验增强:这其中剪切板操作也是一个经常会亮相 ...
最新文章
- TDSQL“相似查询工具MSQL+”入选VLDB论文
- 人刚毕业,在小米造狗没有KPI,雷军奖励100万美金
- 【模板】折线分割平面
- Android源码设计模式分析项目
- 利用HttpClient 获取网页数据java代码模版
- Exchange2003-2010迁移系列之九,创建DAG组
- Vertica系列:从一些细节看Vertica为什么是一个优秀的数据仓库平台
- mybatis根据表逆向自动化生成代码(自动生成实体类、mapper文件、mapper.xml文件)
- 下载MSN2009享受SkyDrive免费25G网络硬盘
- zufeoj_1257: 神风堂人数 VIJOS-P1041
- Excel如何在文本间插入分隔符
- 轻量级Qt键盘-介绍篇
- 内网渗透神器CobaltStrike之Beacon详解(三)
- BZOJ 5442: [Ceoi2018]Global warming
- Buuctf --hellow world
- 室内设计和平面设计哪个更适合女生学习?
- 国产API管理工具Eolink太好用了,打造高效的研发利器
- php自学建议_php自学提升进阶路线
- AppStore 新功能解读:自定义产品页面和 A/B Test 工具(iOS)
- VISTA系统常识技巧集锦