关于自制剪贴板---在线等候 我想自己制作一个类似剪贴板的工具,能够提供剪贴板观察窗口,能不能给提供点建议,谢谢了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 很简单啊,如果仅仅是知道当前剪贴板里面的内容非常简单啊。直接uses Clipbrd单元,然后写代码var brd :TClipBoard;begin brd :=TClipBoard.Create; Memo1.Lines.Text :=brd.asText;end; 监视剪贴板内容 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;interfaceusesWindows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs,Clipbrd;//加入clipbrd单元typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject;var Action: TCloseAction);private{ Private declarations }publicNextClipHwnd:HWND;//观察链中下一个窗口句柄procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD;//处理WM_DRAWCLIPBOARD消息过程end;varForm1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.WMDrawClipBoard(var AMessage: TMessage);begin//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口SendMessage(NextClipHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);//查询剪贴板中特定格式的数据内容if (Clipboard.HasFormat(CF_TEXT) orClipboard.HasFormat(CF_OEMTEXT)) thenbegin//处理剪贴板中内容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等函数的返回值。 做成类似office里的剪贴板,可以自定义格式,主要我想将文本,图像,记录粘贴到剪贴板上,我必须要利用delphi里的TClipboard吗? 可以用API函数,但是TClipboard旧式封装了函数的,为什么不用呢:http://www.applevb.com/sourcecode/ClipV.zip 关于结构体指针 这个存储过程这么写? 请问如何使窗体里的控件跟随窗体的大小变化而变化. 请教如何屏蔽windows所有功能键的代码…… 怎样把快速报表的Close按钮的标题改为中文? 关于dbgrid控件的问题 我用PageControl建立很多个页面,怎样用一个按钮实现全部关闭,注意:是一下子全部都关掉了,不是快速的挨个关掉! 自动编号并且不重复 怎么做用ADO连接数据库的安装程序? 那里有Kylix2.0版本下载啊 用installshield express做安装程序的问题 简单而经典的用户认证问题,(midas,面向对象和数据库操作想结合),欢迎大家讨论。
直接uses Clipbrd单元,然后写代码
var
brd :TClipBoard;
begin
brd :=TClipBoard.Create;
Memo1.Lines.Text :=brd.asText;
end;
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;interfaceusesWindows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs,Clipbrd;//加入clipbrd单元typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject;var Action: TCloseAction);private{ Private declarations }publicNextClipHwnd:HWND;//观察链中下一个窗口句柄procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD;//处理WM_DRAWCLIPBOARD消息过程end;varForm1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.WMDrawClipBoard(var AMessage: TMessage);begin//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口SendMessage(NextClipHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);//查询剪贴板中特定格式的数据内容if (Clipboard.HasFormat(CF_TEXT) orClipboard.HasFormat(CF_OEMTEXT)) thenbegin//处理剪贴板中内容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等函数的返回值。
http://www.applevb.com/sourcecode/ClipV.zip