MDIChild abre otro MDIChild

[Paulao]

Señores, no consigo abri un form MDIChild apartir de otro. Hay como hacerlo? Yo puzo el otro form com fsNormal, pero no logre exito. Em mi codigo esta asi:

procedure TFRM_CNSCliente.Grid_00DBTableViewDblClick(Sender: TObject);
begin
if not Assigned(FRM_MNTCliente) then
begin
FRM_MNTCliente := TFRM_MNTCliente.Create(Self);
FRM_MNTCliente.FormStyle := fsNormal;
FRM_MNTCliente.Visible := True;
Self.Close;
FRM_MNTCliente.ShowModal;
FreeAndNil(FRM_MNTCliente);
end;
end;

Se for posible abri el form, pero no fsNormal, mas si fsMdiChild, yo quedaria bien. Pero si no es posible, puede ser normal mismo. Siempre que hago como estas arriba, viene la exception: CANNOT MAKE VISIBLE WINDOW MODAL. Mira, el form FRM_MNTCliente es fsMdiChild y no fsNormal. Gracias a todos.

[[eduarcol]]

si lo quieres como MDI que es lo que entiendo este codigo deberia servirte, fijate que cambio el Show por ActiveMdiChild, si no entiendes avisa a ver si alguien traduce

Código Delphi [-]
procedure TFRM_CNSCliente.Grid_00DBTableViewDblClick(Sender: TObject);
begin
   if not Assigned(FRM_MNTCliente) then
   begin 
      FRM_MNTCliente := TFRM_MNTCliente.Create(Self);
      FRM_MNTCliente.ActiveMdiChild;
   end;
end;

[jachguate]

La excepción salta porque pones visible a True y luego llamas a ShowModal.

Debiera funcionar así:

Código Delphi [-]
procedure TFRM_CNSCliente.Grid_00DBTableViewDblClick(Sender: TObject);
begin
  if not Assigned(FRM_MNTCliente) then
  begin
    FRM_MNTCliente := TFRM_MNTCliente.Create(Self);
    try
      FRM_MNTCliente.FormStyle := fsNormal;
      Self.Close;
      FRM_MNTCliente.ShowModal;
    finally
      FreeAndNil(FRM_MNTCliente);
    end;
  end;
end;

Finalmente, si querés que el form creado sea también un MDIChild, te recuerdo que estos formularios no pueden mostrarse de manera modal, por lo que tendrías que mostrarlo con Show y esperar a que el usuario lo cierre para destruirlo.

Hasta luego.

[Paulao]

EduarCol, yo hizo e ok, pero yo necessito cierrar el Form que haz el chamado, asi, haciendo con tu codigo:

procedure TFRM_CNSCliente.Grid_00DBTableViewDblClick(Sender: TObject);
begin
if not Assigned(FRM_MNTCliente) then
begin
FRM_MNTCliente := TFRM_MNTCliente.Create(Self);
FRM_MNTCliente.ActiveMdiChild;
Self.Close;
end;
end;

Si hago asi, el form no aparece en la pantalla, pero el esta creado, pero solo no muestra. Es este mi problema, por eso yo intente hacer con el form Modal, pero tambien no logre exito.

[[eduarcol]]

Cambia el self por el nombre del formulario y deberia funcionar bien.

Código Delphi [-]
procedure TFRM_CNSCliente.Grid_00DBTableViewDblClick(Sender: TObject);
begin
   if not Assigned(FRM_MNTCliente) then
   begin 
      FRM_MNTCliente := TFRM_MNTCliente.Create(Self);
      FRM_MNTCliente.ActiveMdiChild;
      FRM_MNTCliente.Close;
   end;
end;

[Paulao]

Descobri el error. Es que yo no puedo llamar um Form MdiChild de otro Form MDIChild.

[[eduarcol]]

claro que si se puede, de hecho lo acabo de hacer... antes de responderte arme un ejemplo y funciono bien... te adjunto el ejemplo para que lo analizes