Este es el codigo del boton cerrar:
Código Delphi
[-]
procedure TFMainForm.Button2Click(Sender: TObject);
begin
FinalizeGrFinger();
Close;
end;
Este es el codigo del metodo FinalizeGrFinger() que está en la librería uUtil.pas
Código Delphi
[-]
procedure FinalizeGrFinger();
begin
GrFinalize();
GrCapFinalize();
DB.closeDB();
DB.Free();
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.