Como evito abrir 2 veces el mismo form?

[daragor]

Hola compañeros, de nuevo.. como podria hacer en un Menu x ejemplo para que no se abra 2 veces el mismo form.. El codigo que estoy usando para llamar a un formulario es asi:

Código Delphi [-]
procedure Tfmain.musersClick(Sender: TObject);
begin
  ABM_users:= TABM_users.Create(Self);
  ABM_users.Show;
  estado.SimpleText:='Activado: Gestión de Usuarios del Sistema.';
end;

He probado cambiar a Showmodal, y en efecto! no se abren 2 pero solo puedo abrir ese! es decir no puedo abrir 2 forms distintos al mismo tiempo, espero me entiendan, muchas gracias!

[ecfisa]

Hola daragor.

No uso Lazarus, pero supongo que este código tiene que funcionarte:

Código Delphi [-]
procedure ShowTheForm(FormClass: TFormClass);
var
  i: Integer;
begin
  i:= Screen.FormCount-1;
  while (i > 0) and not (Screen.Forms[i] is FormClass) do Dec(i);
  if Screen.Forms[i] is FormClass then
    Screen.Forms[i].Show
  else
    FormClass.Create(Application).Show;
end;

Ejemplo de llamada:

Código Delphi [-]
procedure Tfmain.musersClick(Sender: TObject);
begin
  ShowTheForm(TABM_users);
end;

Saludos.

[daragor]

Excelente!! lo voy a probar y aviso asi queda valido, o no, para Lazarus! que es un clon de delphi claro está

[daragor]

Funciona compañero ecfisa, solo q el objetivo es sobre un mismo form, no sobre todos los forms, es decir yo deberia poder abrir 2, 3, X formularios al mismo tiempo pero nunca el mismo..

[ecfisa]

Empezado por daragor

Funciona compañero ecfisa, solo q el objetivo es sobre un mismo form, no sobre todos los forms, es decir yo deberia poder abrir 2, 3, X formularios al mismo tiempo pero nunca el mismo..

Hola daragor.

No entiendo... El código precisamente hace eso, evitar que se pueda volver a crear un form ya creado pero no impide que hagas:

Código Delphi [-]
  ShowTheForm(TForm1);
  ShowTheForm(TForm2);
  ShowTheForm(TForm3);
  ...

Es decir que podes habrir 1, 2, 3, ..., N forms llamando procedimiento, pero evitará que existan dos instancias del mismo a la vez.

Saludos.

[userlazarus]

Hola,

Prueba con este componente en cada uno de los fprmularios : http://wiki.freepascal.org/UniqueInstance