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 cxgrid中回车键光标移到下列

Delphi 解决strtodatetime（）不是有效日期类型的问题

Delphi 软件版本称呼

Delphi lockbox 做加密解密

Delphi adoconnection1 事务

Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能

Delphi xe程序的主题（theme）设置

Delphi url 中文编解码

Delphi如何检测form的移动和调整尺寸事件

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

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