主窗体添加以下过程
procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType=SC_MINIMIZE then
begin
ShowWindow(Handle,SW_HIDE);
end
else inherited;
end;
主窗体添加以下过程
procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType=SC_MINIMIZE then
begin
ShowWindow(Handle,SW_HIDE);
end
else inherited;
end;