Examples

Top  Previous  Next

Some examples:

 

// Close the dialog.

procedure MyCustomButtonClickNotify(EurekaExceptionRecord: TEurekaExceptionRecord; var CloseDialog: Boolean);

begin

   CloseDialog := True;

end;

 

 

// Show a MessageBox.

procedure MyCustomButtonClickNotify(EurekaExceptionRecord: TEurekaExceptionRecord; var CloseDialog: Boolean);

begin

   MessageBox(0'You have clicked on the HELP button!'

     'Information', MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);

end;