Ver Mensaje Individual
  #3  
Antiguo 10-04-2008
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 28
jachguate Va por buen camino
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.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita