怎样响应剪贴板？

Question

说清楚些！
不过你可以试用一下Delphi里面的一个剪贴板对象

Answer 1

下面的东西应该帮的上忙吧！
首先add_clip_chain(true),退出时就add_clip_chain(false)var   get_clip_data:integer;   procedure get_clipbroad(var msg:tmessage);message wm_drawclipboardfunction add_clip_chain(add_chain:boolean):boolean;
begin
 if not add_chain then begin
     changeclipboardchain(form1.handle,get_clip_data);
     sendmessage(get_clip_data,wm_changecbchain,form1.handle,get_clip_data);
   end
 else
   begin
     get_clip_data:=setclipboardviewer(form1.handle);
   end
end;procedure tform1.get_clipbroad(var msg:tmessage);
begin
 sendmessage(get_clip_data,msg.Msg,msg.wparam,msg.LParam);
   if(clipboard.hasformat(cf_text) or clipboard.hasformat(cf_oemtext)) then
      begin  //处理text的部份
      end;
   if (clipboard.hasformat(CF_PICTURE) or clipboard.hasformat(CF_bitmap)) then
      begin
            //处理图片的部份
      end
end;