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;
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;
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;
Application.MainFormOnTaskbar := True;
frmBanner := TfrmBanner.Create(Nil);
try
frmBanner.ShowModal;
finally
frmBanner.Free;
end;
Application.CreateForm(TfrmSeguridadAcceso, frmSeguridadAcceso); try
frmSeguridadAcceso.modoSeguridad := 1;
frmSeguridadAcceso.ShowModal;
finally
frmSeguridadAcceso.Free;
end;
if VariablesArqueos.permiteacceso = False then
begin
dmConectaPvsisArc.SQLConnectionPVsis.Connected := False;
Application.Terminate;
end;
Application.CreateForm(TfrmPrincipalArcas, frmPrincipalArcas); Application.Run;
end.
agradezco cualquier colaboración ya que he tratado de corregir ese comportamiento y
Saludos a Todos:
novato_erick