Evitar que un form se abra estando abierto

[[enecumene]]

Gracias dec, hice esto:

Código Delphi [-]
procedure TFPedido.FormCreate(Sender: TObject);
begin
if FPedido.Showing = True then
BEGIN
  ShowMessage('Ya tienes Abierto este modulo!');
  Abort;
  end;
end;

y me tira un error, un classexception.

Saludos,

[dec]

Hola,

Se me hace raro que compruebes en el "OnCreate" del formulario si este está visible... porque esté como esté por el "OnCreate" no pasará sino una vez... cuando se cree el formulario.

Pero lo mismo estoy desvariando. Lo que es seguro es que acaso antes de comprobar si el formulario está visible (con "ShowWing") deberías comprobar si realmente la variable "FPedido", en este caso, está asignada, no es "nil".

Porque si el formulario no está creado es evidente que no estará visible, y más aún, no puede accederse a las propiedades de un objeto que no ha sido creado.

[[seoane]]

Una pregunta: ¿Hay alguna propiedad que nos permita diferenciar los formularios? El nombre, la clase, etc ...

Si es así puedes usar un bucle como este:

Código Delphi [-]
function Existe(Nombre: String): Boolean;
var
  i: integer;
begin
  for i:= 0 to Screen.FormCount - 1 Do
    if Screen.Forms[i].Name = Nombre then
    begin
      Result:= TRUE;
      Exit;
    end;
  Result:= FALSE;
end;

Y cuando crees o llames al formulario, podrías comprobar si existe. Yo no lo haría dentro del create del formulario.

Código Delphi [-]
if not Existe('Form1') then
begin
  // Aqui lo creas
end;

[[enecumene]]

Disculpa dec, lo puse en el boton donde se abre el form y aun asi me sale el mismo error, para serte sincero no entendi mucho lo que me quisiste decir, perdon.

Saludos.

[[enecumene]]

Gracias seoane dejame aplicarlo a ver si me funciona, luego te comento.

[[enecumene]]

Gracias seoane!! me ha funcionado de maravillasel codigo me quedo asi:

Código Delphi [-]
procedure Tincio.BitBtn1Click(Sender: TObject);
begin
if not Existe('FPedido') then
begin
FPedido:=TFPedido.Create(self);
FPedido.Show;
end else
ShowMessage('Ya tienes abierto este Módulo!');
end;

Muchas Gracias, Saludos.

[dec]

Hola,

Empezado por enecumene

Disculpa dec, lo puse en el boton donde se abre el form y aun asi me sale el mismo error, para serte sincero no entendi mucho lo que me quisiste decir, perdon.

Bueno... lo cierto es que hoy ando algo más espeso de la cuenta... no voy ni a releer lo que he escrito, no vaya a ser que ni yo mismo lo entienda.

PD. La idea de Seoane me parece estupenda, como no podía ser de otro modo.

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

Otra opción puede ser utilizar la propia variable del formulario.

Código Delphi [-]
procedure Tincio.BitBtn1Click(Sender: TObject);
begin
if not Assigned(FPedido) then begin
  FPedido:=TFPedido.Create(self);
  FPedido.Show;
end 
else begin
  ShowMessage('Ya tienes abierto este Módulo!');
end;

Al cerrar el formulario hay que asegurar se de colocar la variable a nil.