delphi默认消息拦截

博客给出了Delphi默认消息拦截的代码示例。代码中定义了TForm2类,声明了消息处理过程,在实现部分对消息进行处理,若消息结果为htclient则将其改为htcaption。
ContractedBlock.gifExpandedBlockStart.gifCode
unit uWei;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm2 
= class(TForm)
    Button1: TButton;
        
procedure aa(var msg:twmnchittest);message wm_nchittest;  //消息处理过程序声明
  
private
    
{ Private declarations }
  
public
    
{ Public declarations }
  
end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
    
procedure tform2.aa(var msg:twmnchittest);
    
begin
      
inherited;
      defaulthandler(msg);
      
if msg.Result=htclient then
        msg.Result:
=htcaption;
    
end;
end.

转载于:https://www.cnblogs.com/wcg249165510/archive/2009/03/23/1419477.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值