Hola amigos del foro:
Tengo un formulario MDI el cual se conecta con ADOConnection al motor de la base de datos, este formulario llama varias Dll's las cuales tambien necesitan esa conexion el objeto las paso como parametros les muestro el codigo que utilizo:
Código Delphi
[-]
function Crear_form(h: Thandle; ADOCon: TADOConnection; VecInformacion : Array of String): Integer;
begin
Application.Handle := h;
Application.CreateForm(TfrmEVentas, frmEVentas);
with frmEVentas do
begin
SQLUno.Connection:= ADOCon;
SQLDos.Connection:= ADOCon;
SQLTres.Connection:= ADOCon;
SQLBuscar.Connection := ADOCon;
ShowModal;
Result := StrToInt('0');
while frmEVentas <> nil do
FreeAndNil(frmEVentas);
end;
end;
hasta ahí todo funciona muy bien, el problema es que necesito copiar la conexion del Objeto en el formulario de la Dll, si lo copio este objeto a otro objeto de la misma clase tengo un error al eliminar el objeto que cree por que al Eliminar este objeto se elimina los dos objetos y yo no quiero que el objeto del MDI se ilimine por que es como una variable global que me sirve para toda la aplicacion, estaba pensando en la herencia. Espero puedan ayudarme gracias de antemo.