Cita:
Empezado por Neftali [Germán.Estévez]
No acabo de entender el problema, al final.
¿Quieres decir que con esta línea no se muestra el form?
Código Delphi [-]Application.CreateForm(TfrmPrincipalArcas, frmPrincipalArcas);
Debería mostrarse sin problemas
¿Qué tienes en las propiedades del proyecto? ¿En MainForm y Auto-create forms?
|
Buen día: Así es no se muestra el formulario que en teoría es principal.
Dentro de las proiedades del proyecto en MainForm a la finales tengo que colocar el frmPrincipalArcas pero aún así no logro que en el formulario
frmSeguridadAcceso muestre el estado ya que muchos usuario ejecutan y dejan el formulario Abierto sin accesar y no me muestra en windows 10 la sombra de activo en la parte del icono en la barra de estado.
Código Delphi
[-]
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
else
Application.CreateForm(TfrmPrincipalArcas, frmPrincipalArcas); Application.Run;
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
else
Application.CreateForm(TfrmPrincipalArcas, frmPrincipalArcas); Application.Run;
Saludos y Gracias por responder;