🚀 go-pugleaf

Hi

I have forms that I want to stay on top so I have set their form style as
fsStayOnTop.  This works pretty well until an exception is raised.  The
exception message gets hidden behind the form.

I searched the Newgroups and found an answer to similar problem in a Delphi
newsgroup (Peter Below). Below is my converted code. My understanding of
what is going on is not great, but it appears that the idea is to capture
the WM_ACTIVATE message and then set the associate dialog to TOPMOST.  This
works ok for dialogs that I create but not for exception message dialogs.
For exception dialogs, FindControl returns a NULL, and so I never get to set
the exception dialog to TopMost.  Why is this happening.  Is there a better
solution to my problem?

void __fastcall TCalcForm::WMActivate(TMessage &msg)
{
  int actFlag = msg.WParamLo;
  if (actFlag == WA_INACTIVE) {
    void* window = (void*)msg.LParam;
    if (window != NULL) {
      // need to find out if the window coming up is a message dialog
      TWinControl* form = FindControl(window);
      if (form != NULL && form->ClassNameIs("TMessageForm")) {
        SetWindowPos(window, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE |
SWP_NOSIZE);
      }
    }
  }
  TForm::Dispatch(&msg);
}

Steve Craig