Access violation el cerrar forms

[franroju]

El método Close lo invoco en un botón. Generalmente, en el form que quiero cerrar realizo consultas a querys o tablas que están en un DataModule.

Puede ser que el error sea por el DataModule y no por el form?

No se, he probado varias cosas, como por ejemplo:

Código Delphi [-]
 if (Form5 <> nil) then begin
    DataModule2.queryLogin.Close;
    Form5:=nil;
    Form5.Close;
  end;

Pero no hay caso. De última, si el código que ingreso no alcanza, solo diganme como harían uds. para tener un Form principal, y otros disponibles para cuando se necesiten, y cuando estos deban cerrarse para volver al principal, no ocurra error de acceso.

Gracias!

[ecfisa]

Empezado por franroju

El método Close lo invoco en un botón

Código Delphi [-]
 if (Form5 <> nil) then begin
    DataModule2.queryLogin.Close;
    Form5:=nil;
    Form5.Close;
  end;

Hola.

Además de lo dicho por los compañeros, no veo la necesidad de comprobar si Form5 existe en ese punto. Si pudiste hacer click en un botón situado en Form5, indudablemente existe

Otra forma en que podés simplificar la creación es:

Código Delphi [-]
...
type
  TForm5 = class(TForm)
    ...
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
  public
    class function MostrarModal: TmodalResult;
  end;

...
implementation
...

class function TForm5.MostrarModal: TModalResult;
begin
  with TForm5.Create(nil) do
    Result:= ShowModal;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //...
  Action:= caFree;
end;

procedure TForm5.FormDestroy(Sender: TObject);
begin
  //...
  Form5:= nil;
end;
end.

Form principal, llamada de ejemplo:

Código Delphi [-]
  if TForm5.MostrarModal = mrOk then // o simplemente: TForm5.MostrarModal;
   ....

Saludos.

[franroju]

Gracis eficsa y lopital, se solucionó el problema. Uno cree que con un simple show y close queda todo lindo, je.

Abrazo grande