Como evito abrir 2 veces el mismo form?

[userlazarus]

Hola,

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

[Casimiro Noteví]

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.

[[AgustinOrtu]]

Al parecer usan variables globales para crear los forms. Eso siempre da problemas

El bloque de código idiomático para crear y mostrar un form es:

Código Delphi [-]

procedure Foo;
var
  UnForm: TUnForm;
begin
  UnForm := TUnForm.Create(OwnerDelForm/nil);
  UnForm.Show/ShowModal;
end;

Si pasamos un owner que se encarga de liberar la memoria no hace falta más nada. Si pasamos nil y se invoca a ShowModal se debe usar un bloque try-finally para liberar el form; sino si se invoca a Show se debe interceptar el evento OnClose y asignar al parámetro Action el valor caFree

Más específicamente, yo suelo usar un ancestro que no es TForm en donde asigno caFree en el OnClose y siempre heredo de este form. De esta manera funciona bien siempre, incluso si implementa una interface. Recordando que TForm es heredero de TComponent por lo que el mecanismo de reference counting esta deshabilitado y se debe manejar la memoria manualmente