码迷，mamicode.com
首页 > Windows程序 > 详细

delphi处理消息的几种方式

时间：2014-12-15 16:44:22      阅读：272      评论：0      收藏：0      [点我收藏+]

标签：style   blog   http   io   ar   os   sp   for   strong   

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

 

[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处理消息的几种方式

标签：style   blog   http   io   ar   os   sp   for   strong   

原文地址：http://www.cnblogs.com/chnxnghi/p/4164961.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！