本文整理自网络,侵删。
主窗体添加以下过程
procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType=SC_MINIMIZE then
begin
ShowWindow(Handle,SW_HIDE);
end
else inherited;
end;
相关阅读 >>
Delphi tstringlist stringlist的特殊用法
Delphi 让嵌入窗体的 webbrowser 控件无边框
Delphi示例代码 android,ios,osx,windows,linux,html5
Delphi xe android 使用system.zip单元释放资源文件
更多相关阅读请进入《Delphi》频道 >>