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;
 

相关阅读 >>

sqlite中的pragma语句攻略

Delphi中的copy，delete，pos和leftstr,rightstr的用法

Delphi动态建立panel无法更改颜色?

Delphi twebbrowser 获取cookie

Delphi tpath

Delphi压缩图片代码

Delphi xe5 android 调用手机震动

Delphi远程注入dll方法

Delphi 删除目录下指定类型文件

Delphi 判断目录是否存在,不存在则创建目录并打开,存在则直接打开

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

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