🚀 go-pugleaf

I used it because Borland uses too. Haver a look at this example in the
Builder's help:
OpenPictureDialog, TApplication::Icon Example

However, I replaced that line with the one that you posted
    OpenDialog1->Options =  TOpenOptions();            // Statement 1

The first dialog is not shown because of two things

1-  In the OpenDialog1Show event handler the dimensions of the first dialog
are zero

     MoveWindow(H, 0, 0, 0, 0, false);

2- If we don't use the Statement 1, we will see the title bar of the first
dialog (with no dialog's client area
because the dimensions are 0). So we clear the options to remove the menu
bar. However, I
did not investigate any further as to see why.

As a result I can only see one dialog box, the one corresponding to the call
in
the OpenDialog1SelectionChange event handler.

MoveWindow(H, 0, 0, 800, 300, true);

The only thing that I noticed is a small flickering of the Parent form (The
one that contaoins the BitBtn)
immediatly before the creation of the Dialog which I think is negligible
(althogh you might think it isn't)

Please, run the program and you will see that there is only one dialog
visible.

TForm1 *Form1;
TOpenDialog* OpenDialog1;
String DlgTitle;
HWND H;

//--------------------------------------------------------------------------
-
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    //CREATE OPENDIALOG  --------------------------------------------
    OpenDialog1  = new TOpenDialog(this);
    OpenDialog1->Title = "This is the Title";
    DlgTitle = OpenDialog1->Title;
    OpenDialog1->OnShow = OpenDialog1Show;
    OpenDialog1->OnSelectionChange = OpenDialog1SelectionChange;
    OpenDialog1->Options =  TOpenOptions();  //<<================== Replaced

}
//--------------------------------------------------------------------------
-

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
    OpenDialog1->FileName = "doc.c";

    if (OpenDialog1->Execute())
    {
        // Place your code here
    }
}
//--------------------------------------------------------------------------
-

void __fastcall TForm1::OpenDialog1Show(TObject *Sender)
{
      H = FindWindow(NULL, DlgTitle.c_str());
      MoveWindow(H, 0, 0, 0, 0, false);      //<<==== Notice NILL dimensions
}
//--------------------------------------------------------------------------
-

void __fastcall TForm1::OpenDialog1SelectionChange(TObject *Sender)
{
    MoveWindow(H, 0, 0, 800, 300, true);  //<<==== Wanted dimensions
}
//--------------------------------------------------------------------------
-

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
//
    OpenDialog2->FileName = "doc.c";

    if (OpenDialog2->Execute())
    {
        // Place your code here
    }
}


Rodolfo