/*
CustomForms example
The following code adds the name of all forms and dialogs on the screen to ListBox1 when Button1 is clicked.
*/ 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for (int i = 0; i < Screen->CustomFormCount; i++)
    ListBox1->Items->Add(Screen->CustomForms[i]->Name);
}
 
