大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
posts - 236, comments - 8, trackbacks - 0, articles - 0
  新随笔  :: 联系 :: 订阅 订阅  :: 管理

Delphi操作剪贴板

Posted on 2014-01-24 17:30 大悟还俗 阅读(...) 评论(...) 编辑 收藏

Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。     
    
   通常它应该至少能显示三种普通格式的内容:文字CF_TEXT、位图CF_BITMAP、元文件CF_MET     
    
   AFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口,它们都能够接受当前发送     
    
   到剪贴板的内容。我们大致按照以下步骤在窗口中处理有关剪贴板的内容。     
    
        
    
       首先,使用SetClipboardViewer(HWND)函数向剪贴板观察链中加入一个观察窗口。当剪     
    
   贴板的内容发生变化时,该窗口会接收到一个WM_DRAWCLIPBOARD消息。该函数需要传递的参     
    
   数是观察窗口的句柄。返回值也是一个窗口句柄类型,标识了将要加入的下一个窗口。     
    
        
    
       然后,响应WM_DRAWCLIPBOARD消息处理剪贴板内容的变化。     
    
        
    
       最后,在程序退出或关闭时需要调用ChangeClipboardChain函数来将自己从观察链中删除     
    
   。然后调用SendMessage函数把这些消息传递到观察链中的下一个观察窗口。函数ChangeCli     
    
   pboardChain原型如下:     
    
        
    
   BOOL    ChangeClipboardChain(     
    
   HWND    hWndRemove,          //将要删除的窗口的句柄     
    
   HWND    hWndNewNext            //观察链中下一个窗口的句柄     
    
         );     
    
        
    
       Delphi的clipbrd.pas单元中定义了一个类TClipboard,它封装了Windows剪贴板,简化了     
    
   大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard,该函数用于返回TCl     
    
   ipboard对象实例,使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboar     
    
   d对象的几个常用的方法和属性的简单介绍。     
    
        
    
   方法:     
    
             Assign:将指定的对象放入剪贴板中。     
    
       Open:打开剪贴板,防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。     
    
       Close:关闭剪贴板。应该与打开剪贴板成对使用。     
    
       Clear:清空剪贴板。     
    
       GetAsHandle:返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。     
    
       GetComponent:返回剪贴板中的一个控件。Delphi自己使用得多。     
    
       HasFormat:查询剪贴板中是否有指定格式的内容。     
    
   属性:     
    
       AsText:用于读写剪贴板文字内容。     
    
       FormatCount:读剪贴板中数据格式的种数。     
    
       Formats:返回剪贴板中各种格式的列表。     
    
        
    
       此外,Delphi中的许多控件中也封装了有关剪贴板处理的操作。下面的一个处理剪贴板的     
    
   简单例子,只是将剪贴板的文字内容显示为窗口标题。     
    
        
    
   unit    Unit1;     
    
        
    
   interface     
    
       uses    Windows,    Messages,    SysUtils,    Classes,Graphics,    Controls,    Forms,    Dialogs,C     
    
   lipbrd;//加入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.WMDrawClipBoard(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消息传递到观察链中的下一     
    
   个窗口是必要的,否则有可能其他窗口不能获得类似消息。

 

 

 

unit clipbrdform; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs,clipbrd, StdCtrls; 

type 
TForm1 = class(TForm) 
Edit1: TEdit; 
Button1: TButton; 
Edit2: TEdit; 
Button2: TButton; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 

var 
Form1: TForm1; 
clipBoard:Tclipboard; 
implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
showmessage(edit1.Text); 
clipboard:=Tclipboard.create; 
clipboard.SetTextBuf(pchar(copy(edit1.Text,1,255))); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
edit2.Text:=clipboard.AsText; 
end; 

end. 

 

呵呵,好久没写点关于Delphi的东西了。
今天上班的时候,同事问我怎么把Memo里面的东西复制到剪贴板里,
过程很简单,Memo.SelectAll,然后Memo.CopyToClipboard就可以了。
不过接着同事又问了我一个问题,为什么Memo.SelectAll后,Memo没有任何显示呢?文字没有被选中的效果?
我跑去看了一眼,原来他把以上方法写在了一个Button.OnClick里面,我让他再加上一行Memo.SetFoucs,效果就出来了。呵呵,主要原因是在点击按钮时,Memo失去了焦点,于是在SelectAll以后,界面也没有即时刷新。

后来他又问了我一个问题,怎么可以直接得到操作剪贴板里的文本呢?
这就是用到Delphi的Clipboard函数了。
Clipboard.AsText就能得到剪贴板里的文本。

此时初学者肯定会奇怪,Clipboard不是一个函数么,怎么这种用法跟一个对象一样呢。
跟一下Clipboard的VCL源码(按住Ctrl键的同时,在Clipboard上面点击鼠标,注意,要正常使用Clipboard需要uses Clipbrd单元)

function Clipboard: TClipboard;
begin
if FClipboard = nil then
    FClipboard := TClipboard.Create;
Result := FClipboard;
end;

看到了吧,这个函数返回了一个TClipboard类型的对象,在函数内部建立了这个对象。

这下就又从VCL代码里学会一招了。当然,有了创建,应该还有销毁,才是健康的代码,

destructor TClipboard.Destroy;
begin
if (FClipboard = Self) then
    FClipboard := nil;
inherited Destroy;
end;

initialization
{ The following strings should not be localized }
CF_PICTURE := RegisterClipboardFormat('Delphi Picture');
CF_COMPONENT := RegisterClipboardFormat('Delphi Component');
FClipboard := nil;
finalization
FClipboard.Free;
end.

其中的FClipboard是Clipbrd单元内的一个全局变量。所以使用initialization和finalization来初始化和销毁该对象。

Powered by .NET Core 3.0 Preview 8 on Linux