如何拦截系统消息并判断消息的名字?

Question

如何拦截系统消息并判断消息的名字?

Answer 1

重载过程
procedure Tform1.wndproc(var message:Tmessage);override;
procedure Tform1.wndproc(var message:Tmessage);
Begin
           Case message.msg of//message.msg就是消息名
               //消息名1
           WM_Datasend_byClpbrd:
   
           End;
           //消息名2
           WM_DataSend_byMemory:Else
   //对于其它消息依然按照原来的方法进行消息处理
Inherited wndproc(message);
        End;