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

2021-04-20 08:27

阅读：682

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

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

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

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

[delphi] view plain copy

b_isClose:Boolean; //True 退出 False 不退出

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

[delphi] view plain copy

procedure TForm1.FormShow(Sender: TObject);
begin
b_isClose:=False;
end;

4.PopMenu增加退出事件

[delphi] view plain copy

procedure TForm1.pmExitClick(Sender: TObject);
begin
b_isclose := true;//设置为真正退出
Close;//调用系统退出事件响应函数 FormClose
end;

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

[delphi] view plain copy

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if b_isclose then
begin
action := cafree;//真正退出
end
else
begin
action := canone;//修改事件类型不退出
end;
end;

2）最小化到托盘

修改FormClose事件，增加语句：

[delphi] view plain copy

Application.Minimize;//最小化应用

如下：

[delphi] view plain copy

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if b_isclose then
begin
action := cafree;//真正退出
end
else
begin
action := canone;//修改事件类型不退出
Application.Minimize;//最小化应用
end;
end;

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

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

[delphi] view plain copy

RzTrayIcon1: TRzTrayIcon;

2. 修改FormClose事件，增加语句：

[delphi] view plain copy

RzTrayIcon1.PopupMenu := pmFrmMenu;//绑定右下角PopMenu

最终如下：

[delphi] view plain copy

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if b_isclose then
begin
action := cafree;//真正退出
end
else
begin
action := canone;//修改事件类型不退出
Application.Minimize;//最小化应用
RzTrayIcon1.PopupMenu := pmFrmMenu;//绑定右下角PopMenu
end;
end;

上一篇：Windows 10运行Ubuntu子系统

下一篇：处理win2000web服务器

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：Delphi 最小化程序到任务栏托盘增加右键PopMenu
文章链接：http://soscw.com/index.php/essay/77048.html

亲，登录后才可以留言！

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

评论

热门文章

推荐文章

最新文章

置顶文章

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

评论

热门文章

推荐文章

最新文章

置顶文章

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