|
Este es el metodo que utilizo para crear un form, desde el formulario principal, ya que todos estan definidos en el proyecto como available.
if Assigned(form11) then
form1.Show
else
form1 := Tform1.Create(Application);
Posteriormente en el formulario "form1" hago lo siguiente:
procedure Tform1.FormCreate(Sender: TObject);
begin
table.open;
end;
procedure Tform1.FormCreate(Sender: TObject);
begin
table.Close;
Action := caFree;
form1 := nil;
end;
y en en close del formulario principal cierro inclusive la base de datos y hago lo siguiente:
procedure TformPrincipal1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
database.close;
Action := caFree;
formPrincipal1 := nil;
Application.Terminate;
end;
Espero me puedan ayudar. Gracias.
La verdad que no tengo muy claro si es el BDE o es mi aplicacion, pero en todos los casos que cierro todos los programas que hacen referencia a alguna libreria del bde y luego empiezo nuevamente a abrir las aplicaciones funciona correctamente, es por eso nada mas que digo que puede ser el bde, pero es más seguro que sea mi aplicacion que no este haciendo algo bien y quede algo abierto en memoria que impide que otra aplicacion pueda ser ejecutada.
|