Ver Mensaje Individual
  #3  
Antiguo 20-07-2022
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 396
Reputación: 14
novato_erick Va por buen camino
Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
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); //--- Aquí muestra el estado del formulario
  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); //--Pero no se muestra al final el principal 
  Application.Run;

  {usando:}
  frmSeguridadAcceso := TfrmSeguridadAcceso.Create(Nil);  //aquí para nada muestra el estado en la barra de herramienta 
  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); //Aquí si muestra el formulario principal
  Application.Run;

Saludos y Gracias por responder;

Última edición por novato_erick fecha: 20-07-2022 a las 15:57:01.
Responder Con Cita