formStyle=fsMDIForm, formStyle=fsMDIChild == "Abstract Error"

[Essato]

hi, gracias por tu ayuda.

Ya probe con el FREE y me dan los mismos errores :|
Sabes otra posible causa?, este proyecto lo comenze en delphi9 e igual tenia ese error, ahora lo estoy trabajando en delphi7.

[[maeyanes]]

Empezado por Essato

hi, gracias por tu ayuda.

Ya probe con el FREE y me dan los mismos errores :|
Sabes otra posible causa?, este proyecto lo comenze en delphi9 e igual tenia ese error, ahora lo estoy trabajando en delphi7.

Aún así, siempre que quieras liberar un objeto que tu creaste, usa el método Free.

Sobre tus errores, delphi.com.ar ya comentó algo sobre los "Abstract Error". Sobre los errores de acceso a memoria, verifica que no se esté tratando de usar o liberar un objeto que, o no se ha creado o ya fue liberado.


Saludos...

[[Lepe]]

Hace bastante tiempo me volvían locos esos errores, simplemente haz esto:

Código Delphi [-]
procedure Tform1.FormClose(....);
begin
  action := cafree;
  nombreVentana := nil;
end;

Las ventanas sigue creandolas como lo haces ahora.

Las llamadas a Destroy no debes hacerlas; es más ahora no te hacen falta, simplemente llama al método NombreVentana.Close o bien, si quieres acceder desde la forma MDI: FormaMdi.MdiChildren[i].Close

Un saludo

[Essato]

hi, probe con lo de:

action:=catfree
nombreventana:=nil

me da un error, que son incompatibles los tipos, con lo de formamdi.mdichildren[] probe con cero y uno, ahora sólo marca error de memoria.

Gracias!.

[[maeyanes]]

Si pones el código que estás usando, te podríamos ayudar mejor. Usa los tags [ delphi ] [ /delphi ] (sin espacios entre los corchetes) para que tu código se entienda mejor.


Saludos...

[[Lepe]]

la incompatibilidad de tipos es imposible, es caFree de todas formas, mirando en la ayuda lo ves rapidamente:

Código Delphi [-]
  TCloseAction = (caNone, caHide, caFree, caMinimize);

Por otro lado, el acceso a memoria lo tienes que comprobar tú antes de cerrar la ventana !!!


Cerrar la ventana activa:

Código Delphi [-]
if ActiveMDIChild <> nil then
  ActiveMDIChild.Close

Cerrar todas las ventanas hijas

Código Delphi [-]
for i:=0 to mdichildcount - 1 do
  mdiChildren[i].Close;

Adeusss

[Essato]

oks, pego parte del codigo:

tengo, ahora, dos tres ventanas, una con formstyle=fsMDIForm, y dos con fsMDIChild

las llamo:

Código Delphi [-]
procedure rpvLaunch(rpvtwin:integer);
begin
    if (rpvtwin=0) AND (rpvWin[0]=FALSE) then
    begin
        Application.CreateForm(TrpvGenre, rpvGenre);
        rpvWin[0]:=TRUE;
    end
    else if (rpvtwin=1) AND (rpvWin[1]=FALSE) then
    begin
        Application.CreateForm(TrpvAddMedium, rpvAddMedium);
        rpvWin[1]:=TRUE;
    end;
end;

para ventana 1:
rpvlaunch(0);

para ventana 2:
rpvlaunch(1);

la variable bandera se supone que es para no lanzar la ventana dos veces.

en el OnQueryClose de las ventanas hijas:

Código Delphi [-]
rpvWin[0]:=FALSE;
rpvGenre.Free;

Probe todo lo que me sugerieron y siguen esos dos problemas.
Gracias por su ayuda!.

[roman]

Empezado por Essato

Probe todo lo que me sugerieron y siguen esos dos problemas.

¿Todo? ¿Ya revisaste lo que te indicó Federico? El error de acceso a memoria muy posiblemente sea consecuencia del Abstract Error. ¿Tienes alguna componente de terceros en tus formularios?

// Saludos