DataModule llamado desde varias instancias

[floren]

Hola a todos/as:

Estoy desarrollando una dll con tres Forms y un DataModule, el cual puede ser llamado desde cualquiera de las Forms que muestran distintos datos.

Desde la aplicación principal se llama a la dll que carga la Form solicitada, y dendro de ésta es posible llamar a alguna de las otras dos.

Mi problema es que para crear dentro de las Form el DataModule utilizo

initialization
if CensoDM=nil then
try
CensoDM:=TCensoDM.Create(Application);
except
on E: Exception do
begin
MessageDlg('Error grave en la creación del módulo CensoDM.' + #13 +
E.Message, mtError, [mbOk],0);
end
end;

finalization
if CensoDM<>nil then
CensoDM.Free;


La inicialización está clara, si es distinto de nil, pero ¿cómo sé que puedo eliminar el módulo creado, ya que puede estar en uso por otra form?

Seguro que existe otra forma de hacer esto.

Gracias

[__cadetill]

A nivel de "chapuzilla", podrias usar la propiedad Tag del DataModule para saber cuantos forms están usándolo.

No obstante, una pregunta, los forms son modales? Si es así, crea en DM en la función o procedimiento que llama a la pantalla pertinente

[floren]

Hola Cadetill, gracias por tu respuesta!

Bueno, lo del tag no me convence mucho.

Cada Form la creo de la siguiente manera:

procedure MostrarArbol; //en la declaración arriba le pongo export;
begin

with TArbolForm.Create(Application) do
try

ShowModal;

finally
free;
end;

end;

Cada procedimiento es exportado y llamado desde la aplicación principal mediante índice.

Al ser modal, sólo tengo una Form cada vez según se llama desde la .exe, pero la cuestión es que por ejemplo, en este caso, una me muestra la relación entre trabajadores y sucursales (en un arbol de la clase TTreeView) y quisiera poder dar la opción de mantener los datos de los trabajadores o de las sucursales llamando a las otras dos forms desde TArbolForm.

Allí también tengo las cláusulas "inicialización" y "finalización" y claro, cómo me cargo un DataModule si es posible que esté en uso por otra form? That's the question.

Gracias

[__cadetill]

ShowModal;

como veo que son modales, puedes hacer la segunda opción que te he dicho, la de crear el data modulo (y destruirlo) en la función o procedimiento de la DLL que es llamado por el programa principal


procedure MostrarArbol; // <-- supongo que esta es el procedimiento exportado
begin
DM := TDM.Create(Application);
with TArbolForm.Create(Application) do
try
ShowModal;
finally
free;
DM.Free;
end;
end;

[floren]

Jo tío, he hecho la prueba sin mucha fe con lo que me has dicho, pensando que me iba a lanzar la excepción nada más pulsar el botón, pero de eso nada, ¡¡va de maravilla!!

No sé lo que hacía mal antes y ahora creía que al hacer el DM:=TDM.Create(Application) en ambas de la misma forma me daría el error por objeto duplicado....:p :p :p

Gracias!