🚀 go-pugleaf

David Erbas-White <derbas@arachneering.com> wrote:
>
> any other suggestions/solutions that come to mind?

As long as language isn't an issue, you can add another button
and change it's caption but check for the original result.

//-------------------------------------------------------------
BOOL CALLBACK EnumChildCallBack( HWND hWnd, LPARAM lParam )
{
    char Buffer[256] = {0};
    if( ::GetClassName(hWnd, Buffer, 255) )
      {
          if( stricmp(Buffer, (char*)lParam) == 0 )
            {
                ::GetWindowText( hWnd, Buffer, 255 );

                if( stricmp(Buffer, "OK") == 0 ) strcpy(Buffer, "OK Button");
                else if( stricmp(Buffer, "Cancel") == 0 ) strcpy(Buffer, "Cancel Button");
                else if( stricmp(Buffer, "&Yes") == 0 ) strcpy(Buffer, "&Yes Button");
                else if( stricmp(Buffer, "&No") == 0 ) strcpy(Buffer, "&No Button");
                else if( stricmp(Buffer, "&Abort") == 0 ) strcpy(Buffer, "&Abort Button");
                else if( stricmp(Buffer, "&Retry") == 0 ) strcpy(Buffer, "&Retry Button");
                else if( stricmp(Buffer, "&Ignore") == 0 ) strcpy(Buffer, "&Ignore Button");

                ::SetWindowText( hWnd, Buffer );
            }
      }
    return TRUE;
}
//-------------------------------------------------------------
void __fastcall TForm1::WndProc(TMessage &Message)
{
    if( Message.Msg == APP_MESSAGEBOX_MESSAGE )
      {
          SetupMessageBox( this );
      }
    TForm::WndProc(Message);
}
//-------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString Text = "First row of message.\nSecond row of message.";
    MessageBoxCaption = "This is the message box caption";
    ::PostMessage( Handle, APP_MESSAGEBOX_MESSAGE, 0, 0 );
    ::MessageBox( Handle, Text.c_str(), MessageBoxCaption.c_str(), MB_ICONERROR | MB_ABORTRETRYIGNORE );
}
//-------------------------------------------------------------
void __fastcall TForm1::SetupMessageBox( TForm* pForm )
{
    RECT R;
    int x, y, w, h;
    HWND MessageBoxHandle = FindWindow( MAKEINTRESOURCE(WC_DIALOG), MessageBoxCaption.c_str() );
    if( MessageBoxHandle )
      {
          AnsiString WindowClassName = "Button";
          ::EnumChildWindows( MessageBoxHandle, (WNDENUMPROC)EnumChildCallBack, (LPARAM)WindowClassName.c_str() );

          // center it on the target form
          ::GetWindowRect( MessageBoxHandle, &R );
          w = R.right - R.left;
          h = R.bottom - R.top;

          // center the box
          x = pForm->Left + ((pForm->Width - w)  / 2);
          y = pForm->Top  + ((pForm->Height - h) / 2);

          // keep on screen
          if( x < 0 ) x = 0;
          else if( x + w > Screen->Width ) x = Screen->Width - w;
          if( y < 0 ) y = 0;
          else if ( y + h > Screen->Height ) y = Screen->Height - h;

          // set new windows position
          ::SetWindowPos( MessageBoxHandle, 0, x, y, 0, 0, SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER );
      }
}
//-------------------------------------------------------------

~ JD