Question

I’m using great TExceptionDialog from JEDI JCL package to show unhandled exceptions inside a C++ builder XE project, everything running ok so far. I’ve decided to enhance it a little bit by writing my own custom form to upload crash report to a server via FTP.

Problem is that I can’t open my custom form from delphi PAS unit, tried to define as an external (no delphi programmer here, sorry 🙁 ) but don’t know how to properly code that. I’ve read lots of tutorials but couldn’t find anything useful besides writing a DLL or an OLE container for my custom form, realy overkill for this project.

Question is, how can I properly execute this task? how to do ShowModal() of a form defined in a C++ unit, from a PAS delphi unit?

Answer 1

I’ve found an easy and practical way of doing it, kinda ugly but works!

Trick is to get form by iterating thru all forms with Screen.Forms object. I’ve set TAG property for my form to a predefined number just to get an easy id of it.

In short, inside C++ unit of my form, I’ll do this:

MyForm->Tag=9999; // easy way of Iding my form

Then, inside my delphi unit of TExceptionDialog, in SEND button click method:

procedure TExceptionDialog.SendBtnClick(Sender: TObject);
var
   i: integer;
   form: TForm;
begin
  for i := 0 to Screen.FormCount-1 do // all forms
  begin
    form := Screen.Forms[i]; // get a form
    if(form.Tag = 9999) then // check if its my form
    begin
      form.ShowModal; // if its mine, call showmodal
      break;
    end;
  end;
  ModalResult := mrOk;  // return to my app
end;