Cómo detectar si un formulario ya está abierto?

[mbguantay]

Hola amigos como estan?

En realidad no se si se puede hacer. Tengo que abrir un formulario cada cierto tiempo a modo de recordatorio de lo que no hay que olvidarse de hacer. Usé el temporizador para q cada cierto tiempo se abra un formulario com si fuera una agenda del dia, o una alarma... el tema es que si el formulario no se cierra, por algun motivo, digamos no estar sentado en la pc.. al cabao de un tiempo se han abierto un monton de instancias del mismo formulario...

quisiera saber si hay alguna forma de detectar un formulario ya abierto.. para en ese caso, no volver a abrirlo... Gracias!!!

[ecfisa]

Hola.

Una forma sería:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
begin
  for i:= Screen.FormCount -1 downto 0 do
    if Screen.Forms[i].Name = 'Form2' then  // suponiendo que tu form se llame Form2
    begin
      Screen.Forms[i].Show;
      Exit;
    end;
  with TForm2.Create(Application) do Show;
end;

Un saludo.

[[newtron]]

Hola.

Yo uso esta forma:

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

Saludos

[Casimiro Notevi]

Yo uso una solución básicamente igual que la de ecfisa:

Código Delphi [-]
function  EstaAbiertoForm (cNombre : string) : boolean;
var
  i : integer;
begin
  Result := false;
  for i := 0 to Screen.FormCount - 1 do
    if Pos (LowerCase(Screen.Forms[i].Name),  LowerCase(cNombre) ) > 0 then
    begin
      Result := true;
      break
    end
end;

[rgstuamigo]

Empezado por newtron

Yo uso esta forma:

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

Es una alternativa muy óptima la que mencionas , ya que no se necesita recorrer con un ciclo todos formularios en pantalla para hacer la búsqueda...Sin embargo para poder usarla hay que asegurarse que al momento de cerrar y destruir el formulario hay que ponerlo a nulo (nil) osea hacer:

Código Delphi [-]
Formulario := nil;

Eso lo podemos hacer en en evento OnDestroy del formulario por ejemplo.
Saludos...

[mbguantay]

Muchas Gracias por las respuestas!! Ya pruebo las que me dijeron pero infinitamente gracias.

[[AzidRain]]

Otra solución aún mas simple es la siguiente:

En el evento que dispara el timer, antes de mostrar la ventana, desactiva el timer y en el evento OnClose de la ventana lo vuelves activar. De esta manera el timer solo corre mientras no se está mostrando la ventana, que es el comportamiento deseado.

[[Chris]]

Empezado por AzidRain

Otra solución aún mas simple es la siguiente:

En el evento que dispara el timer, antes de mostrar la ventana, desactiva el timer y en el evento OnClose de la ventana lo vuelves activar. De esta manera el timer solo corre mientras no se está mostrando la ventana, que es el comportamiento deseado.

Es exactamente lo que iba a proponer! Te me has adelantado!
Creo que es la solución más simple y adecuada a este caso.

Saludos,
Chris

[[newtron]]

Empezado por rgstuamigo

Es una alternativa muy óptima la que mencionas , ya que no se necesita recorrer con un ciclo todos formularios en pantalla para hacer la búsqueda...Sin embargo para poder usarla hay que asegurarse que al momento de cerrar y destruir el formulario hay que ponerlo a nulo (nil) osea hacer:
Código Delphi [-]Formulario := nil;

Eso lo podemos hacer en en evento OnDestroy del formulario por ejemplo.
Saludos...

.... tiquismiquis....