Hola a todos:
Tengo una tabla IB conectada con IBX. El código para conectarla funciona bien en el evento OnCreate de cualquier form que no sea el principal, e incluso en un procedure del form principal llamado desde una opción del menú, pero da error si lo pongo en el evento OnCreate del form principal.
El error es: ... raised exception class EAccessViolation with message 'Violación de acceso en la dirección 0052B3E2 en módulo 'PComunidad.exe'. Leer de dirección 00000058.
Código:
//en este procedure del form principal da error
procedure TFMenu.FormCreate(Sender: TObject);
begin
//conectar base de datos, transación
DM.IBDB.DatabaseName := ExtractFilePath(ExpandFileName(ParamStr(0))) + 'COMUNIDAD.GDB';
DM.IBDB.Connected := True;
DM.IBT.Active := True;
end;
// en este procedure del mismo form funciona bien
procedure TFMenu.AbrirperodoClick(Sender: TObject);
begin
//conectar base de datos, transación
DM.IBDB.DatabaseName := ExtractFilePath(ExpandFileName(ParamStr(0))) + 'COMUNIDAD.GDB';
DM.IBDB.Connected := True;
DM.IBT.Active := True;
end;
//en el evento OnCreate de cualquier otro form llamado desde este principal funciona bien
¿Qué puede ser?
Un saludo. Tomás.