Отображение формы(или фрейма) в компании с другой модальной формой.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
Form2->ShowModal();
 
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormShow(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------

TForm *second = new TForm(NULL);
TForm *third= new TForm(NULL);
// ...
 
// загасить third переключением 
third->Enabled = false;
// или методом 
third->Close();
 
second->ShowModal();
// ...
 
// в обработчике OnShow формы second переключить обратно 
third->Enabled = true;
// или вызвать 
third->Show();

void __fastcall Tmainform::Button1Click( TObject *Sender )
{
  if ( !second ) {
    second = new Tsecond_form( this );
  }
  new third_form_thread(false);
  second->ShowModal();
}
 
// при условии, что: 
 
__fastcall third_form_thread::third_form_thread( bool CreateSuspended )
               : TThread( CreateSuspended )
{
    FreeOnTerminate = true;
}
// ---------------------------------------------------------------------------
void __fastcall third_form_thread::Execute( )
{
    Synchronize( show_third_form );
 
    while ( mainform->third->Visible && !Terminated ){
       Sleep( 500 );
    }
    Synchronize( free_third_form );
 
    ShowMessage( "thread execution finished, third form destroyed" );
}
 
void __fastcall third_form_thread::show_third_form( void ) {
 
    if (! mainform->third) {
       mainform->third = new Tthird_form( NULL );
    }
    mainform->third->Show( );
}
 
void __fastcall third_form_thread::free_third_form( void ) {    
    delete mainform->third;
    mainform->third = NULL;
}

new third_form_thread(false);
second->ShowModal();

void __fastcall Tmainform::Button1Click( TObject *Sender )
{
  new third_form_thread(false);
}
 
void __fastcall Tmainform::Button2Click( TObject *Sender )
{
  second->ShowModal();
}

    if ( !second ) {
        second = new Tsecond_form( this );
    }
    if ( !third ) {
        third = new Tthird_form( this );
    }
 
    LONG tf_style = GetWindowLongW( third->Handle, GWL_EXSTYLE );
    tf_style |= WS_EX_APPWINDOW;
    SetWindowLongW( third->Handle, GWL_EXSTYLE, tf_style );
 
    third->Show( );
 
    second->ShowModal( );

//////////////////////////////////////////////////////////////////////////////
// Эти макросы будут отвечать за
// - создание формы
// - стабильную работу формы при активации модальных форм
//
// Создание формы - REMOTE_CREATE
// Операции перед вызовом модальных компонентов - REMOTE_BEFORE_MODAL
// Операции в обработчике OnShow модальных компонент - REMOTE_AFTER_MODAL
//
// форму можно полностью исключить из проекта, отменив объявление REMOTE_TURN_ON
/////////////////////////
#define REMOTE_TURN_ON // <------------ Отключение формы
/////////////////////////
 
#ifdef REMOTE_TURN_ON
 
#define REMOTE_CREATE extern Tremote_form *remote_form; \
    extern Tmainform *mainform; \
    remote_form = new Tremote_form(mainform); \
        remote_form->Show();
#define REMOTE_BEFORE_MODAL extern Tremote_form *remote_form; \
    remote_form->Enabled = false;
#define REMOTE_AFTER_MODAL extern Tremote_form *remote_form; \
    remote_form->Enabled = true; \
    remote_form->BringToFront();
 
#else
#define REMOTE_CREATE
#define REMOTE_BEFORE_MODAL
#define REMOTE_AFTER_MODAL
 
#endif
 
//...
    REMOTE_CREATE
//...
    REMOTE_BEFORE_MODAL
    link_prop_form->ShowModal( );
//...
void __fastcall Tlink_prop_form::FormShow( TObject *Sender ) {
    //...
    REMOTE_AFTER_MODAL
}