Delphi 最小化程序到任务栏托盘 增加右键PopMenu

Posted 小小猫钓小小鱼

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi 最小化程序到任务栏托盘 增加右键PopMenu相关的知识,希望对你有一定的参考价值。

在做中间层时,中间层往往不需要点击关闭时立刻关闭,而是最小化到托盘。故而特意隐藏关闭按钮功能。

       1)隐藏退出功能 用PopMenu退出菜单代替

             1.增加popMenu退出菜单,绑定到窗体

             2.增加变量控制是否真的退出b_isClose;//True 退出 False 不退出

 

[delphi] view plain copy
 
  1. b_isClose:Boolean; //True 退出 False 不退出  

 

             3.初始化b_isClose    在FormCreate或者FormShow事件中初始化 设置为False

          

[delphi] view plain copy
 
  1. procedure TForm1.FormShow(Sender: TObject);  
  2. begin  
  3.    b_isClose:=False;  
  4. end;  


            4.PopMenu增加退出事件 

 

 

[delphi] view plain copy
 
  1. procedure TForm1.pmExitClick(Sender: TObject);  
  2. begin  
  3.    b_isclose := true;//设置为真正退出       
  4.    Close;//调用系统退出事件 响应函数 FormClose  
  5. end;  


          5.退出时依据是否真正退出做处理

 

 

[delphi] view plain copy
 
  1. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);  
  2. begin  
  3.   if b_isclose then  
  4.   begin  
  5.     action := cafree;//真正退出  
  6.   end  
  7.   else  
  8.   begin  
  9.     action := canone;//修改事件类型不退出  
  10.   end;  
  11. end;  


      2)最小化到托盘

 

            修改FormClose事件,增加语句:

 

[delphi] view plain copy
 
  1. Application.Minimize;//最小化应用  

 

        如下:

[delphi] view plain copy
 
  1. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);  
  2. begin  
  3.   if  b_isclose then  
  4.   begin  
  5.     action := cafree;//真正退出  
  6.   end  
  7.   else  
  8.   begin  
  9.     action := canone;//修改事件类型不退出  
  10.     Application.Minimize;//最小化应用  
  11.   end;  
  12. end;  

 

    3) 增加托盘中右键弹出菜单

          1.安装拖放增加第三方控件TRzTrayIcon到界面, 取名:

[delphi] view plain copy
 
  1.  RzTrayIcon1: TRzTrayIcon;  

 

 

           2. 修改FormClose事件,增加语句:

 

[delphi] view plain copy
 
  1. RzTrayIcon1.PopupMenu := pmFrmMenu;//绑定右下角PopMenu  

 

         最终如下:

 

[delphi] view plain copy
 
    1. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);  
    2. begin  
    3.   if b_isclose then  
    4.   begin  
    5.     action := cafree;//真正退出  
    6.   end  
    7.   else  
    8.   begin  
    9.     action := canone;//修改事件类型不退出  
    10.     Application.Minimize;//最小化应用  
    11.     RzTrayIcon1.PopupMenu := pmFrmMenu;//绑定右下角PopMenu  
    12.   end;  
    13. end;  

以上是关于Delphi 最小化程序到任务栏托盘 增加右键PopMenu的主要内容,如果未能解决你的问题,请参考以下文章

请问怎样使程序在最小化后图标放在任务栏的托盘上?

有关delphi程序的问题

WinForm 之 窗口最小化到托盘及右键图标显示菜单

WinForm 之 窗口最小化到托盘及右键图标显示菜单

delphi在窗口最小化时不在任务栏

delphi 给程序加托盘图标