Ver Mensaje Individual
  #3  
Antiguo 26-02-2010
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Reputación: 21
AzidRain Va camino a la fama
Me parece que sale sobrando la excepción, pues bien podrías hacer:
Código Delphi [-]

 FrmMDIChild := TFrmMDIChild.Create(Self);
 try
      if FrmMDIChild.ShowModal = mrCancel then
      Begin
          ShowMessage('Usuario no Autorizado');
          Application.Terminate;
       end;
  finally
    FrmMDIChild.Close;
  end;

Recuerda que las excepciones no se deben utilizar para mandar mensajes o controlar flujo del programa, te recomiendo le eches una hojeada al capítulo de excepciones del libro "La cara oculta de Delphi" de Ian Marteens, que aunque es para versiones antiguas de delphi sirven bastante para entender esto de las excepciones.
__________________
AKA "El animalito" ||Cordobés a mucha honra||
Responder Con Cita