Como evito abrir 2 veces el mismo form?

[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

[Casimiro Notevi]

Empezado por userlazarus

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

Pero ese componente es para evitar más de una instancia del programa, no tiene nada que ver con formularios.

[userlazarus]

Cierto, error mío, no sirve para los formularios.

[userlazarus]

Igual no lo estoy entendiendo bien, pero no sería sufuciente con esto :

Código Delphi [-]
procedure Tfmain.musersClick(Sender: TObject);
begin
if not assigned(ABM_users) then
begin
ABM_users:= TABM_users.Create(Self);
end;
end;

[daragor]

ecfisa , cuando abro otro formulario cierra el que se esta mostrando entonces no puedo tener 2 forms abiertos al mismo tiempo, por ej. compras y productos abiertos

[ecfisa]

Hola daragor.

El procedimiento que te puse no cierra ningún form, por lo que supongo que se deben estar solapando (el último abierto sobre el anterior).

Saludos.

[anubis]

Empezado por userlazarus

Igual no lo estoy entendiendo bien, pero no sería sufuciente con esto :

Código Delphi [-]procedure Tfmain.musersClick(Sender: TObject);
begin
if not assigned(ABM_users) then
begin
ABM_users:= TABM_users.Create(Self);
end;
end;

Hola, perdonad que reabra este post tan antiguo. Ya he probado el codigo anterior y funciona, solo que si cierro el formulario no deja volver a abrirlo.
Hay alguna forma de desasignarlo?.

mi codigo es este

Código Delphi [-]
if not assigned(finventarios) then
  begin
  finventarios:=tfinventarios.Create(self);
  finventarios.Parent:=CONTENEDOR;// es un panel donde abro los forms.
  finventarios.Show;
  end;

[anubis]

Bueno, como ya no puedo editar mi propio mensaje, tengo que poner otro.

Ya probe lo que ponian en otro post

en el form hijo, le tengo que poner

Código Delphi [-]
finventarios.close;
finventarios.free;

Lo unico que he tenido que quitar del form es finventarios.free porque da error al cerrar.