delphi 点击关闭叉时,最小化图标

本文整理自网络，侵删。

 procedure WMSysCommand(var Message: TMessage); message WM_Syscommand ;

procedure TFrm_main.WMSysCommand(var Message: TMessage);
begin
  if (Message.WParam = SC_CLOSE) or (Message.WParam = SC_MINIMIZE) then
  begin
    CoolTrayIcon1.iconvisible:= true;
    frm_main.hide;
  end
  else
  inherited;
end;
 

相关阅读 >>

Delphi 文件路径相关的字符串操作

Delphi 查询进程名进程id/进程路径 父进程/子进程

Delphi截图程序无窗口版

Delphi tnotification android通知

[译]rad studio 10.4 新变化：面向控件的 vcl 样式管理

Delphi中如何用一个按钮控制开与关两个状态

Delphi 中showmodal与show的区别

Delphi 根据字符串分隔符位置取值

Delphi idhttp post

Delphi datamodule1 fdconnection1数据库连接

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 点击关闭叉时,最小化图标