[novato_erick]

Hola Chicos:

durante muchos año no había prestado atención a un comportamiento de las aplicaciones que realizo en Delphi la cual haciendo una visita a unos de mis clientes después de 8 años e instalarlo en windows 10 sin ningún problema sucede que noté que muchos usuarios dejan el formulario de Acceso abierto y cuando aprietan en el la esquina derecha para limpiar el escritorio el formulario de acceso no aparece con la raya cuando una aplicación está en ejecución.

Código Delphi [-]
{$R *.res}

begin
  Application.Initialize;
  // Iniciamos Splash
  Application.MainFormOnTaskbar := True;
  frmBanner := TfrmBanner.Create(Nil);
  try
    frmBanner.ShowModal;
  finally
    frmBanner.Free;
  end;
  frmSeguridadAcceso := TfrmSeguridadAcceso.Create(Nil);
  try
    frmSeguridadAcceso.modoSeguridad := 1;
    frmSeguridadAcceso.ShowModal;
  finally
    frmSeguridadAcceso.Free;
  end;

  if VariablesArqueos.permiteacceso = False then
  begin
    dmConectaPvsisArc.SQLConnectionPVsis.Connected := False;
    Application.Terminate;
  end;
  // Cargamos la aplicación
  Application.CreateForm(TfrmReportes_Compras, frmReportes_Compras);
  Application.CreateForm(TfrmPrincipalArcas, frmPrincipalArcas);
  Application.Run;
end.

De esta manera es que la aplicación no muestra ningún estado haciendo que los usuarios precionen nuevamente el icono de ejecutar.

Sin embargo al hacer esto:

Código Delphi [-]
{$R *.res}

begin
  Application.Initialize;
  // Iniciamos Splash
  Application.MainFormOnTaskbar := True;
  frmBanner := TfrmBanner.Create(Nil);
  try
    frmBanner.ShowModal;
  finally
    frmBanner.Free;
  end;
  Application.CreateForm(TfrmSeguridadAcceso, frmSeguridadAcceso);//aquí cambio a application.CreateForm si muestra el estado que está activo el formulario pero....
 // frmSeguridadAcceso := TfrmSeguridadAcceso.Create(Application);
  try
    frmSeguridadAcceso.modoSeguridad := 1;
    frmSeguridadAcceso.ShowModal;
  finally
    frmSeguridadAcceso.Free;
  end;

  if VariablesArqueos.permiteacceso = False then
  begin
    dmConectaPvsisArc.SQLConnectionPVsis.Connected := False;
    Application.Terminate;
  end;
  // Cargamos la aplicacion
  Application.CreateForm(TfrmPrincipalArcas, frmPrincipalArcas);// a la finales el formulario principal del programa jamás se muestra pero si se crea.
  Application.Run;
end.

agradezco cualquier colaboración ya que he tratado de corregir ese comportamiento y

Saludos a Todos:

novato_erick