本文整理自网络,侵删。
主窗体添加以下过程
procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType=SC_MINIMIZE then
begin
ShowWindow(Handle,SW_HIDE);
end
else inherited;
end;
相关阅读 >>
Delphi 如何得到 winrar 处理解压缩文件的返回值 ?
更多相关阅读请进入《Delphi》频道 >>