11 replies to this topic

[TiammatMX]

Buen día, compañerit@s del foro..., ahora, tengo una consulta que hacerles respecto a algo que necesito hacer...

Tengo una aplicación que llama a una pantalla de consulta, que a su vez debe llamar a una pantalla de detalle y "desaparecer" la pantalla de consulta, bajo éste esquema:

Aplicación
    |
    |
    _______ Pantalla de consulta
                      |
                      |
                      ______ Pantalla de detalle.

Como dije, la pantalla de consulta, al momento de llamar a la pantalla de detalle, debe desaparecer, preferentemente ser cerrada, para que no se esté ejecutando al mismo tiempo que la pantalla de detalle.

La llamada de la pantalla de consulta:

delphi

procedure TFrmPrn.ConsultadeExtorsinTelefnica1Click(Sender: TObject);
begin
  try
    inherited;
    with TfrmCnsltrDnncs.Create(Self) do
        ShowModal;
    except
    on E: Exception do begin
      ShowMessage(E.Message);
    end;
  end;
end;

La llamada de la pantalla de detalle (Y aquí es donde reside la duda o problema):

delphi

procedure TfrmCnsltrDnncs.dbgrdDtsDblClick(Sender: TObject);
begin
  with TfrmCapExt.Create(Self) do  <----- ¿Posible problema?
  begin
    TpoUsr(sTpoUsr);
    RecbrDts(dbgrdDts.Columns.Items[0].Field.Value);
    Show;
  end;
  frmCnsltrDnncs.Close;    <------ Arroja un error de excepción
end;

Como siempre, alguna idea por loca que parezca u oreintación respecto a la resolución del problema será bienvenida. Agradeciendo de antemano.

[andres1569]

Creo que vas bien encaminado en tus suposiciones (por lo que veo en los comentarios que has puesto al lado), cuando creas el formulario de detalle le pasas Self como parámetro. Ese parámetro es el que actuará como propietario (owner) de la pantalla de detalles y se refiere al formulario de consulta que luego destruyes, de ahí que salte el error.

Prueba a pasarle Self.Owner para que sea el formulario principal el que actúe como propietario de la pantalla de detalle y así creo que no debería darte error.

Saludos

[Caral]

Hola
El problema viene del uso de ShowModal o Show.
Osea, o se crea la pantalla cuando se necesita o se crea al inicio.
Si bien es bueno crearla y destruirla, no funciona asi cuando esta quiere destruir a la que la creo.
Mira este ejmplo.
3 pantallas, la principal llama a la segunda, esta llama a la tercera y quita la segunda.
Saludos

Attached Files

•  1816_d2b07d33c4ca46ede29abdfc1106aa5e41ae538f.zip   9.44KB   3 downloads

[TiammatMX]

...Prueba a pasarle Self.Owner para que sea el formulario principal el que actúe como propietario de la pantalla de detalle y así creo que no debería darte error.

Aún da el error..., pero me gustó el enfoque... 

[Caral]

Hola
A mi usando Self.Owner no me da error, pero simplemente no elimina la segunda.
Saludos

[TiammatMX]

...3 pantallas, la principal llama a la segunda, esta llama a la tercera y quita la segunda...

Nope, no funciona. Ya no da el error, pero no cierra la segunda, queda al fondo.

[Caral]

Hola
En el ejemplo??????.
A mi me funciona perfecto, la primera llama a la segunda, la segunda llama a la tercera y quita la segunda.
Saludos

[andres1569]

Como dice Caral, no es una buena idea mezclar ShowModal y Show, creo que eso complica las cosas para lo que quieres hacer. Yo lo que haría es, dentro de ese procedimiento, memorizar en primer lugar en una variable el propietario de la pantalla de consulta, luego cerrar ésta con Close, y a continuación crear la pantalla de detalle pasándole como Owner la variable memorizada, así debería aparecer en primer plano, aunque no lo he probado 

Saludos

[TiammatMX]

No, Caral. El ejemplo lo estudié y llevé la idea a mi aplicación. Es ahí donde no funciona...

Como dice Caral, no es una buena idea mezclar ShowModal y Show, creo que eso complica las cosas para lo que quieres hacer. Yo lo que haría es, dentro de ese procedimiento, memorizar en primer lugar en una variable el propietario de la pantalla de consulta, luego cerrar ésta con Close, y a continuación crear la pantalla de detalle pasándole como Owner la variable memorizada, así debería aparecer en primer plano, aunque no lo he probado 

Saludos

Estoy de acuerdo, simplemente que por la manera en que el cliente está pidiendo el procesamiento, infiero que es posible. A menos, claro, que sea solamente un capricho.

[Caral]

Hola
En el proyecto la pantalla 3 se crea o no?.
Si la llamas con show tiene que estar incluida si la llamas con showmodal no.
Saludos

[Caral]

Hola
ESto tiene que funcionar:

pantalla de consulta:

delphi

procedure TFrmPrn.ConsultadeExtorsinTelefnica1Click(Sender: TObject);
begin
  try
    inherited;
    with TfrmCnsltrDnncs.Create(Self) do
        ShowModal;
    except
    on E: Exception do begin
      ShowMessage(E.Message);
    end;
  end;
end;

pantalla de detalle

delphi

procedure TfrmCnsltrDnncs.dbgrdDtsDblClick(Sender: TObject);
begin
  with frmCapExt do  
  begin
    TpoUsr(sTpoUsr);
    RecbrDts(dbgrdDts.Columns.Items[0].Field.Value);
    Show;
    frmCnsltrDnncs.Close; 
  end;
end;

Para esto el form TfrmCapExt tiene que estar incluido en el proyecto.
Saludos

EDITO: TfrmCapExt  es el nombre del form?? o es frmCapExt ???
Se tiene que poner el NOMBRE ya que como dije antes tiene que estar creado en el proyecto de antemano.

[TiammatMX]

...ESto tiene que funcionar...

Y funcionó. Gracias, Caral.