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

上一篇：delphi2010自带 TTrayIcon 托盘图标控件使用方法

下一篇：Windows 7 更新补丁（解决无法安装Axure RP 9）

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：delphi trayIcon控件，如何实现窗口最小化的时候到系统托盘
文章链接：http://soscw.com/essay/63543.html

亲，登录后才可以留言！

delphi trayIcon控件，如何实现窗口最小化的时候到系统托盘

评论

热门文章

推荐文章

最新文章

置顶文章