Capturar Mensajes de error

[daly]

necesito controlar el error en el programa principal. Si este hace una llamada a una función de un objeto que tiene su propia clase y durante el proceso se ejecuta un error, automáticamente se cancela el resto de insturcciones de la función, muestra el mensaje de error y continua el programa principal. A mi no me interesa que continúe el programa principal. Una de las razones es realizar un rollback en la base de datos. Por este motivo me veo obligado a controlar los mensajes de error en el programa principal. Pero si pongo un try /except no visualizo el mensaje de error a no ser que pueda capturarlo. Esta es mi pregunta
como capturar el mensaje.
Saludos

[xavinet]

hola!

si lo he entendido bien podrias hacer lo siguiente:

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   try
     {instrucciones del programa}
   except
     //Aquí me gustaría mostrar el mensaje de error generado por otra clase
     On E: Exception do 
       begin
         //Aquí tratarias el error si es necesario
         ShowMessage(E.Message); //muestras tu error             
       end;
   end;
 end;

bueno eso es todo, sabiendo lo poco que nos has contado, si necesitas más aquí estamos!!

[[Lepe]]

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   try
     {instrucciones del programa}
   except
      transacciones.rollback;
      raise; // levantamos de nuevo la excepción producida, para que el usuario
               // final pueda verla.
     //Aquí me gustaría mostrar el mensaje de error generado por otra clase
   end;
 end;

[daly]

ok, ha sido de ayuda. Es lo que buscaba.
Saludos