Ver Mensaje Individual
  #3  
Antiguo 19-06-2008
natalinuyo natalinuyo is offline
Miembro
 
Registrado: ene 2007
Posts: 64
Reputación: 18
natalinuyo Va por buen camino
Este es el codigo del boton cerrar:
Código Delphi [-]
procedure TFMainForm.Button2Click(Sender: TObject);
begin
     // finalize GrFinger
     FinalizeGrFinger();
     Close;
end;

Este es el codigo del metodo FinalizeGrFinger() que está en la librería uUtil.pas
Código Delphi [-]
procedure FinalizeGrFinger();
begin
   // finalize library
   GrFinalize();
   GrCapFinalize();
   // Closing database
   DB.closeDB();
   DB.Free();
   // Freeing resources
   template.Free();
   FreeMemory(raw.img);
   raw.img := nil;
end;

Adicionalmente tengo el procedimiento OnCloseQuery en el MainForm
Código Delphi [-]
procedure TFMainForm.FormCloseQuery(Sender: TObject; var CanClose:Boolean);
begin
  Release;
end;

Pues yo creo que básicamente es esto... es lo que hago cuando quiero cerrar mi form.
Responder Con Cita