4 respuestas en este tema

[FGarcia]

Pues eso, la pregunta es muy parecida a una que se hizo ayer.

Desde un Formulario principal creo en tiempo de ejecucion otro formulario (Form2). Dentro de Form2 hay un bitbtn

delphi

kind := bkCancel 
ModalResult := mrCancel

Hasta ahi no hay ningun problema. El problema surge porque en Form2 creo a Form3 y dentro de Form3 tambien tengo un bitbtn con las mismas propiedades que el que esta en Form2. Entonces cuando cierro Form3 desde el bitbtn se cierra tambien Form2.

El comportamiento que yo esperaria es que Form3 se cierre y deje activo a Form2, sin embargo no lo hace.

Ambos formularios los creo de la misma manera:

delphi

procedure TfrmClientesExp.btnModificarClick(Sender: TObject);
begin
  with TfrmClientesEdt.Create(Application) do
    try
      ShowModal;
    finally
      free;
    end;
end;

¿Alguna idea?

[felipe]

Es un comportamiento que ya habia visto antes, aunque personalmente no se de una explicación razonable para ello. Mi consejo sería que imaginando la existencia del form1, crees los procedimientos allí, así simplemente se ejecutan desde el form2 o el form3 esperando que no se afecten entre si.


Saludos!

[escafandra]

Pues yo no logro reproducir el problema. Te dejo el ejemplo

Saludos.

[FGarcia]

Efectivamente, no se reproduce en tu ejemplo, jajaja sin embargo en mi aplicacion aun sigue, le ando buscando, alguna tonteria he de haber hecho

[TiammatMX]

Pues eso, la pregunta es muy parecida a una que se hizo ayer.

Desde un Formulario principal creo en tiempo de ejecucion otro formulario (Form2). Dentro de Form2 hay un bitbtn

delphi

kind := bkCancel 
ModalResult := mrCancel

Hasta ahi no hay ningun problema. El problema surge porque en Form2 creo a Form3 y dentro de Form3 tambien tengo un bitbtn con las mismas propiedades que el que esta en Form2. Entonces cuando cierro Form3 desde el bitbtn se cierra tambien Form2.

El comportamiento que yo esperaria es que Form3 se cierre y deje activo a Form2, sin embargo no lo hace.

Ambos formularios los creo de la misma manera:

delphi

procedure TfrmClientesExp.btnModificarClick(Sender: TObject);
begin
  with TfrmClientesEdt.Create(Application) do
    try
      ShowModal;
    finally
      free;
    end;
end;

¿Alguna idea?

Se me ocurren dos:

• Que una de las formas no se de tipo "NORMAL", es decir, fsNormal.
• Que la forma que no responde tenga algún componente cuya librería esté dañada.

Fuera de éso, tu problema es casi un caso para "La Araña"...