Forms

[nenufer]

Hola a tod@s . Os cuento:

Estoy utilizando delphi7, tengo un formulario MdiForm con un menu. Desde uno de los items llamo a un formulario Mdichild y quiero que este a su vez muestre otro Mdichild. Se puede hacer? Utilizo el form.show.

Me da el siguiente error : 'Acces violation at address 0046EA36 in module project.exe.'

Código Delphi [-]
procedure TFrmAlquileres.BuscarMoroso();
begin
  if DM.TblDeuda.Locate('IdSocio',DM.TblSociosIdSocio.Value,[]) then
    begin
      if MessageDlg('¿Desea cobrar la deuda ahora?',mtCustom,[mbYes,mbNo],0)=mrYes then
        begin
         //llama al un procedimiento para filtrar la tabla,campo,valor pasado  
         //como parametro
         DM.filtros(DM.TblDeuda,'IdSocio',DM.TblSociosIdSocio.Value);
         //Formulario
          FrmMorosos.Show; 
          FrmMorosos.GrpMoroso.Enabled := false;
        end;
    end;
end;

Gracias de antemano

[[maeyanes]]

Y FrmMorosos ya está creado? Por que si no, primero tendrías que verificar si está creado, si no es así, crearlo:

Código Delphi [-]
if not Assigned(FrmMorosos) then
  FrmMorosos := TFrmMorosos.Create(nil); // O .Create(Application)

Saludos...

[nenufer]

Buaa. No contaba con eso y es lo mas importante. Muchas gracias!!!!!!

[nenufer]

Buenas otra vez . He probado lo que me has dicho

Código Delphi [-]
procedure TFrmAlquileres.BuscarMoroso();
begin
with DM do
begin
  if TblDeuda.Locate('IdSocio',TblSociosIdSocio.Value,[]) then
    begin
      if MessageDlg('¿Desea cobrar la deuda ahora?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
        begin
          if not Assigned(FrmMorosos) then
            FrmMorosos := TFrmMorosos.Create(application);
          filtros(TblDeuda,'IdSocio',TblSociosIdSocio.Value);
          FrmMorosos.Show;
          FrmMorosos.GrpMoroso.Visible := false;
          FrmMorosos.EdtDeuda.SetFocus;
        end;
    end;
end;

Si le digo que no quiero cobrar la deuda no me da ningun error, pero si elijo que sí,el primer socio que elijo(de un DBlookupCombobox) no me da ningun problema,me lo hace bien, pero al seleccionar otro me da un error: 'Acces violation at address 0040368 in module project.exe.
Libero memoria en el onclose con

Código Delphi [-]
Action := cafree;

,

pero no se si se me queda algo por hacer, porque cuando le doy por segunda vez no entra en :

Código Delphi [-]
if not Assigned(FrmMorosos) then
            FrmMorosos := TFrmMorosos.Create(application);

Por si sirve de algo la llamada la hago en el closeUp del lookupcombobox

Gracias otra vez.

[[maeyanes]]

En el evento OnDestroy de TFrmMorosos has: FrmMorosos := nil.

El error en la segunda pasada te lo da por que FrmMorosos apunta a una dirección de memoria que ya no está en uso.


Por cierto, las ventanas MDIChild se muestran automáticamente al momento de crearlas, así que no hay necesidad de FrmMorosos.Show.


Saludos...

[nenufer]

Graciaaas por contestar tan rapido. Me imaginaba que era en el ondestroy pero no tenia ni idea de que poner.

Empezado por maeyanes

Por cierto, las ventanas MDIChild se muestran automáticamente al momento de crearlas, así que no hay necesidad de FrmMorosos.Show.

Cierto , no lo habia pensado asi.

Muchisismas graciaas.