[Android]TFrame create and delete

[ingalime]

Hi, rlebeau!
I began to collect the fragments of your code for my white paper.
Please check again.
C++ Builder Berlin Up2:

Code: Select all

//h TFrame
//***
public:      // User declarations
   __fastcall TFrame1(TComponent* Owner);
    TNotifyEvent OnButtonClick;


Code: Select all

//cpp TFrame
TFrame1 *Frame1;
//---------------------------------------------------------------------------
__fastcall TFrame1::TFrame1(TComponent* Owner)
   : TFrame(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TFrame1::Button1Click(TObject *Sender)
{
 //close frame
 if (OnButtonClick)
   OnButtonClick(this);
}


Code: Select all

//h main
public:      // User declarations
   __fastcall TForm1(TComponent* Owner);
   void __fastcall FrameButtonClicked(TObject *Sender);


Code: Select all

//main Form cpp
void __fastcall TForm1::FrameButtonClicked(TObject *Sender)
{
   Frame1->Release();
   Frame1 = nullptr;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Frame1 = new TFrame1(this);
   Frame1->Parent = this;
   Frame1->Label1->Text = L"Hello frame";
   Frame1->OnButtonClick = &FrameButtonClicked;
}



C++ Builder Tokyo 10.2.2:

Code: Select all

void __fastcall TForm1::FrameButtonClicked(TObject *Sender)
{
  TThread::ForceQueue(nullptr, [Frame1](){ Frame1->DisposeOf(); });
  Frame1 = nullptr;
}


And we cau use Frame in event ThreadTerminated. For example:

Code: Select all

 void __fastcall TFrame2::ThreadTerminated(TObject *Sender)
{

   Button2->Enabled = true;
   AniIndicator1->Visible = false;

   //close Frame2 with Memo1
   Frame2->Release();
   Frame2 = nullptr;

       //show Frame1 with message
   TMyConnect *Thread = static_cast<TMyConnect*>(Sender);
   if(Thread->FatalException)
    {
             Frame1 = new TFrame1(Form1);
        Frame1->Parent = Form1;
        Frame1->Label1->Text = L"Sorry, communication error with the server.";
        Frame1->OnButtonClick = &(Form1->FrameButtonClicked);
    }
   else
      {
      Frame1 = new TFrame1(Form1);
      Frame1->Parent = Form1;
      Frame1->Label1->Text = L"Thank you. All successfully";
      Frame1->OnButtonClick = &(Form1->FrameButtonClicked);
      Form1->Button2Click(0);//<--for example clear ListVew on main form
      }

}


Is everything correct now?
Thank you.