Root > Compatibility > 5.x -> 6.x > EurekaLog 6 Documentation > Events > ExceptionActionNotify event > Examples

Examples

Previous pageReturn to chapter overviewNext page   

Caution: this is old EurekaLog 6 documentation. This is not the latest version.

 

Some examples:

 

// Show exception dialog?

procedure MyActionNotify(EurekaExceptionRecord: TEurekaExceptionRecord;

                          EurekaAction: TEurekaActionType; var Execute: Boolean);

begin

   if EurekaAction = atShowingExceptionInfo then

     begin

       Execute := MessageBox(0,'Do you want to show error details?''Question',

                             MB_YESNO or MB_ICONQUESTION or MB_TASKMODAL)<>ID_YES;

     end;

end;

 

 

// Don't save Log File...

procedure MyActionNotify(EurekaExceptionRecord: TEurekaExceptionRecord;

                          EurekaAction: TEurekaActionType; var Execute: Boolean);

begin

   if EurekaAction = atSavingLogFile then

     Execute := False;

end;

 

 

// Check that exception was correctly saved to Log File...

procedure MyActionNotify(EurekaExceptionRecord: TEurekaExceptionRecord;

                          EurekaAction: TEurekaActionType; var Execute: Boolean);

begin

   if EurekaAction = atSavedLogFile then

     begin

       if not Execute then

         MessageBox(0,'Cannot write to Log File.''Error',

                    MB_OK or MB_ICONSTOP or MB_TASKMODAL);

     end;

end;

 

 

// Check Email sent correctly...

procedure MyActionNotify(EurekaExceptionRecord: TEurekaExceptionRecord;

                          EurekaAction: TEurekaActionType; var Execute: Boolean);

begin

   if EurekaAction=atSentEmail then

     begin

       if not Execute then

         MessageBox(0,'Could not send the Email.''Error',

                    MB_OK or MB_ICONSTOP or MB_TASKMODAL);

     end;

end;




Send feedback... Build date: 2018-11-27
Last edited: 2018-06-14
PRIVACY STATEMENT
The documentation team uses the feedback submitted to improve the EurekaLog documentation. We do not use your e-mail address for any other purpose. We will remove your e-mail address from our system after the issue you are reporting has been resolved. While we are working to resolve this issue, we may send you an e-mail message to request more information about your feedback. After the issues have been addressed, we may send you an email message to let you know that your feedback has been addressed.


Permanent link to this article: https://www.eurekalog.com/help/eurekalog/old_exceptionactionnotify_examples.php