delphi trayIcon控件,如何实现窗口最小化的时候到系统托盘
2021-03-12 05:30
阅读:496
标签:wms span and ini get www col nim type
type TForm1 = class(TForm) private procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; end; ...... procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); begin inherited; if Msg.CmdType = SC_MINIMIZE then // 窗口收到最小化消息 begin Application.Minimize; // 最小化程序 ShowWindow(Application.Handle, SW_HIDE); // 隐藏任务栏图标 end; end;
记得在TrayIcon的单击或双击事件中还原窗口,否则你就看不见程序了,只能用任务管理器结束了。
响应Application的消息事件,如果是最小化消息就显示图标、隐藏主窗口和Application。
delphi trayIcon控件,如何实现窗口最小化的时候到系统托盘
标签:wms span and ini get www col nim type
原文地址:https://www.cnblogs.com/jijm123/p/12602683.html
文章来自:搜素材网的编程语言模块,转载请注明文章出处。
文章标题:delphi trayIcon控件,如何实现窗口最小化的时候到系统托盘
文章链接:http://soscw.com/essay/63543.html
文章标题:delphi trayIcon控件,如何实现窗口最小化的时候到系统托盘
文章链接:http://soscw.com/essay/63543.html
评论
亲,登录后才可以留言!