Problem with Pointers to a Form

[zl1jk]

Hi Guys,
I am trying to call a function CodeA which is present in all the forms. Only One form exists at any time. Form1 is the MainForm, the others children.
If I execute case 0 (MainForm) all is OK.
If I execute case 1 or 2 then MainForm->CodeA is called instead of Form2->CodeA or Form3->CodeA.

What am I doing wrong?.

 
void __fastcall TForm1::rgFormClick(TObject *Sender)
{
//    TForm1    *DynForm;            // declared globally
 
    if (DynForm != this)
        DynForm->Close();
    switch (rgForm->ItemIndex)
    {
        case    0:
            DynForm = this;
            break;
 
        case    1:
            (TObject *) DynForm = Form2;
            break;
 
        case    2:
            (TObject *) DynForm = Form3;
    }
    DynForm->Show();   // works fine
    DynForm->CodeA();            // <--------------- Problem child
 
}
 
 

Regards
John

[zl1jk]

Sorted it myself. For those that are interested.

void __fastcall TForm1::rgFormClick(TObject *Sender)
{

switch (rgForm->ItemIndex)
{
case 0:
if (DynForm)
DynForm->Hide();
(TForm1*) DynForm = dynamic_cast<TForm1*>(Form1);
break;

case 1:
if (DynForm)
if (LastIndex)
DynForm->Hide();
(TForm2*) DynForm = dynamic_cast<TForm2*>(Form2);
break;

case 2:
if (DynForm)
if (LastIndex)
DynForm->Hide();
(TForm3*) DynForm = dynamic_cast<TForm3*>(Form3);
break;
}
DynForm->Show();
DynForm->CodeA(); // <--------------- was the Problem child
LastIndex = rgForm->ItemIndex;
}