首页 > Windows开发 > 详细

delphi处理消息的几种方式

时间：2014-12-15 16:43:17      阅读：334      评论：0      收藏：0      [点我收藏+]

第一种：自定义处理单条消息

 

[delphi] view plaincopy
 
  1. unit Unit2;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs;  
  8.   
  9. type  
  10.   TForm2 = class(TForm)  
  11.     procedure FormCreate(Sender: TObject);  
  12.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);  
  13.   private  
  14.     { Private declarations }  
  15.     //直接用 TWMQueryEndSession  
  16.     procedure EndMsg(var nMsg: TWMQueryEndSession); Message WM_QUERYENDSESSION;  
  17.     //也可以用这种  
  18.     //procedure EndMsg(var nMsg: TMessage); Message WM_QUERYENDSESSION;  
  19.   public  
  20.     { Public declarations }  
  21.   end;  
  22.   
  23. var  
  24.   Form2: TForm2;  
  25.   
  26. implementation  
  27.   
  28. {$R *.dfm}  
  29.   
  30. //收到WM_QUERYENDSESSION消息后就会触发这个过程  
  31. procedure TForm2.EndMsg(var nMsg: TWMQueryEndSession);  
  32. begin  
  33.   //0 可以取消关机操作  
  34.   nMsg.Result := 1;  
  35.   ShowMessage(‘注销、重启、关机‘);  
  36. end;  
  37.   
  38. end.  

 

 

 

第二种：利用Application.OnMessage处理消息

 

[delphi] view plaincopy
 
  1. unit Unit2;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs;  
  8.   
  9. type  
  10.   TForm2 = class(TForm)  
  11.     procedure FormCreate(Sender: TObject);  
  12.   private  
  13.     { Private declarations }  
  14.   
  15.   public  
  16.     { Public declarations }  
  17.     procedure OnMsg(var nMsg: tagMSG; var nHandled: Boolean);  
  18.   end;  
  19.   
  20. var  
  21.   Form2: TForm2;  
  22.   
  23. implementation  
  24.   
  25. {$R *.dfm}  
  26.   
  27. //消息处理过程  
  28. procedure TForm2.OnMsg(var nMsg: tagMSG; var nHandled: Boolean);  
  29. begin  
  30.   //处理……  
  31.   //这里会收到各种消息……经测试无法收到WM_QUERYENDSESSION消息  
  32. end;  
  33.   
  34. procedure TForm2.FormCreate(Sender: TObject);  
  35. begin  
  36.   Application.OnMessage := OnMsg;  
  37. end;  
  38.   
  39. end.  

 

 

第三种：自己处理窗口函数，个人感觉这是最强大的，可以拦截一切发往窗口的消息！

 

[delphi] view plaincopy
 
  1. unit Unit2;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs;  
  8.   
  9. type  
  10.   TForm2 = class(TForm)  
  11.     procedure FormCreate(Sender: TObject);  
  12.   private  
  13.     { Private declarations }  
  14.   
  15.   public  
  16.     { Public declarations }  
  17.     procedure WndProc(var nMsg: TMessage); override;  
  18.   end;  
  19.   
  20. var  
  21.   Form2: TForm2;  
  22.   
  23. implementation  
  24.   
  25. {$R *.dfm}  
  26.   
  27. procedure TForm2.WndProc(var nMsg: TMessage);  
  28. begin  
  29.   
  30.   //这里能收到发往窗口的所有消息  
  31.   
  32.   inherited; // 注意这句不能少  
  33.   
  34.   if nMsg.Msg = WM_QUERYENDSESSION then  
  35.   begin  
  36.     if nMsg.LParam = 0 then  
  37.       ShowMessage(‘关机或重启‘)  
  38.     else  
  39.       ShowMessage(‘注销‘);  
  40.   end;  
  41.   
  42. end;  
  43.   
  44. end.  

 

delphi处理消息的几种方式

原文：http://www.cnblogs.com/chnxnghi/p/4164961.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
分享档案
更多>
2021年09月23日 (328)
2021年09月24日 (313)
2021年09月17日 (191)
2021年09月15日 (369)
2021年09月16日 (411)
2021年09月13日 (439)
2021年09月11日 (398)
2021年09月12日 (393)
2021年09月10日 (160)
2021年09月08日 (222)
最新文章
更多>
教程昨日排行
更多>
友情链接
汇智网   PHP教程   插件网  
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣，分享程序人生！