【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-dy204.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit dy204;
    
    interface
    
    uses
      Windows, Messages,clipbrd, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, XPMan;
    
    type
      TForm1 = class(TForm)
        Memo1: TMemo;
        Button1: TButton;
        XPManifest1: TXPManifest;
        procedure FormCreate(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
        next :HWnd;
        // 定义一个消息过程用于处理wm_drawclipboard消息
        procedure WMdrawclipboard(var aa: TMessage);message wm_drawclipboard;
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.wmdrawclipboard(var aa: tmessage);
    begin
      SendMessage(next,aa.Msg ,aa.WParam ,aa.LParam );
      if(clipboard.hasformat(CF_TEXT)or clipboard.HasFormat(CF_OEMTEXT) )then
      begin
        memo1.Clear;
        memo1.Lines.Add(clipboard.AsText);
      end;
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      next := SetClipboarDviewer(handle);
    end;
    
    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      ChangeClipboardChain(handle,next);
      SendMessage(next,wm_changecbchain,handle,next);
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Close;
    end;
    
    end.
    

上一篇：dy203.pas
下一篇：80例电子阴道镜检查病人的护理配合