🚀 go-pugleaf

saravanan wrote:

>    I have 3 child windows in my MDI application.  When a button is clicked
> on first child, i will display a MODAL form.  Since the invoked form is
> MODAL, i could not able to operate on any of the child form.  Is there any
> way to override this ?  I need to operate on other 2 child form.  In other
> words, Form that invokes the modal form should alone be blocked and all
> other child windows should be operatable. How to do this ?

Do not show that form modal but make FormStyle fsStayOnTop and use ->Show().

Disable that child. Enable again when the fsStayOnTop is closed:


//fsMDIChild
void __fastcall TForm3::Button1Click(TObject *Sender)
{
      TForm4 *Form = new TForm4(this );

      Enabled = false;

      Form->Show();
}

//fsStayOnTop
void __fastcall TForm4::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   TForm *Form = dynamic_cast<TForm*>(Owner);

   if ( Form )
      Form->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm4::FormClose(TObject *Sender, TCloseAction &Action)
{
   Action = caFree;
}

Hans.