Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 20-07-2022
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 396
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Aplicación hecha con Delphi 10.2 no funciona en Windows 10, pero sí en otros windows lgarcia Varios 5 09-07-2018 10:13:21
Cerrar aplicación si windows emite su mensaje de " Windows ha detectado un problema" JerS Varios 2 18-11-2011 14:48:29
Aplicación en windows Vlady Lazarus, FreePascal, Kylix, etc. 2 11-07-2008 02:34:25
Aplicacion en windows 2000 ebreton31 Varios 0 26-10-2006 23:17:51
Estado de la impresora en windows xp serhasae Impresión 3 27-10-2005 15:24:37


La franja horaria es GMT +2. Ahora son las 16:58:37.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi