主窗體最小化時不顯示在任務欄

主窗體添加以下過程

procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType=SC_MINIMIZE then
  begin
    ShowWindow(Handle,SW_HIDE);
  end
  else inherited;
end;