Cómo puedo saber si ya tengo un formulario abierto.-

[socger]

En la aplicación que realizo salto de un formulario a otro mediante una botonera de acceso. El problema es que a veces tengo que hacer recurrencia, es decir desde el formulario primero a veces llamo al segundo, este a su vez llama a un tercero y este último vuelve a llamar, por ejemplo al segundo.

Para evitar los errores que me genera cuando destruyo el segundo, pues lo vuelvo a crear, antes de crearlo uso la siguiente secuencia de comandos:

try
vuelvo a crear el segundo lo que hago es Hasta ahora para comprobar si tenía un formulario / creado, lo que hacía

[socger]

En la aplicación que realizo salto de un formulario a otro mediante una botonera de acceso. El problema es que a veces tengo que hacer recurrencia, es decir desde el formulario primero a veces llamo al segundo, este a su vez llama a un tercero y este último vuelve a llamar, por ejemplo al segundo.

Para evitar los errores que me genera cuando destruyo el segundo, pues lo vuelvo a crear, antes de crearlo uso la siguiente secuencia de comandos:

try
if form1.Showing = True then
begin
try
if form1.Showing = False then
begin
// Esta creado pero no está hecho un showmodal
dbGrid.SetFocus;
end;
except
// Ni si quiera está creado el formulario
dbGrid.SetFocus;
end;
end;
except
// Ni si quiera está creado el formulario
// paso a crear form1
end;

No encuentro ninguna documentación que me confirme que esté o no creado en memoria (form1.Create) el módulo/formulario.

Si la conocen por favor no duden en comentarmelo

Saludos y gracias de antemano.

[[newtron]]

Hola.

En algún hilo (no recuerdo cual) tratamos este tema. La solución que yo le doy es la siguiente:

if Formulario = nil then
Formulario:=TFormulario.Create(Self);
Formulario.show;

Saludos

[socger]

Muchas gracias newtron. La pruebo.

Un saludo

[Neftali [Germán.Estévez]]

Antes de nada, pediros a ambos que utilicéis TAG's cuando añadáis código a los mensajes.

Centrándome en tu pregunta, digamos que un formulario puede estar creado o no, y si está creado, puede estar visible o no.

Si está creado, no apunta a nil, con lo que puedes comprobar su existencia utilizando el método de newtron.
Si está creado, pero no visible puedes utilizar la propia variable del form para comprobar el estado.

Esto te lo comento, porque no siempre que cierras un form se destruye; A veces se destruye y a veces sólo se oculta. Para ello debes revisar el evento OnClose del formulario. El parámetro:

Código Delphi [-]
...var Action: TCloseAction

Este parámetro determina qué pasará con ese formulario cuando se cierre; Dependiendo del tipo de form tiene un valor por defecto u otro. Tenlo en cuenta.

[Neftali [Germán.Estévez]]

Repetido.
Guía de estilo.

Código Delphi [-]
if (hilo.EsRepetido()) then begin
  hilo.Cerrar;
  hilo.Usuario.SendLink(Getlink(CONST_GUIA_ESTILO));
  hilo.Usuario.SendAmonestacion();
  moderador.TiempoPerido :=  moderador.TiempoPerido + 1;
end;

Un saludo.