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 xe 7 mediaplayer 在安卓里放不出声音

Delphi datetimepicker控件日期格式

Delphi 校验注册码时的技巧

Delphi 标题栏相关操作

Delphi下对dbf文件进行物理删除

Delphi 遍历类中的属性

Delphi 鼠标拖动控件自由移动位置

Delphi topendialog打开和取消按钮的选择

Delphi 不可移动的窗体

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

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