Dynamisk oprettelse af mainmenu

Jeg skal jo forresten aligevel ha oprette alle menuitems, så der er ingen forskel om jeg skriver de i c++ eller den delphi lignenden måde som når man ser formen som text.

Jeg tager stadig gerne mod forbedrings forslag :)

Ok, nu er det færdigt, og det virker. Måske er det ikke så smart som det kunne være, men det er heller ikke så slemt som jeg frygtede.

I min header til classen:
      TMainMenu *MainMenu;
        TMenuItem *FileMenuItem;
            TMenuItem *SaveTestRestulMenuItem;
              TMenuItem *SaveTestResult[MAX_NUMBER_OF_FIXSITES];
        TMenuItem *N1;
            TMenuItem *ExitMenuItem;
        TMenuItem *SetupMenuItem;
            TMenuItem *UserIniMenuItem;
            TMenuItem *InstrumentsIniMenuItem;
...
Og i constructoren:
      MainMenu = new TMainMenu(Parent);
        FileMenuItem = new TMenuItem(MainMenu);
        FileMenuItem->Caption = "File";
        FileMenuItem->OnClick = MenuItemClick;
            SaveTestRestulMenuItem = new TMenuItem(FileMenuItem);
            SaveTestRestulMenuItem->Caption = "Save test result";
            SaveTestRestulMenuItem->OnClick = MenuItemClick;
            for(unsigned char i=0; i<noFixSites; i++)
            {
              SaveTestResult[i] = new TMenuItem(SaveTestRestulMenuItem);
              SaveTestResult[i]->Caption = "Fix"+IntToStr(i+1);
              SaveTestRestul[i]->OnClick = MenuItemClick;
            }
            N1 = new TMenuItem(FileMenuItem);
...

I MenuItemClick():
void __fastcall TCommonControls::MenuItemClick(TObject *Sender)
{
  TMenuItem *TheMenuItem = dynamic_cast<TButton*>(Sender);
  if(TheMenuItem == NULL)
      return;

  if(TheMenuItem->Caption == "Exit")
  {
      Application->Terminate();
  }
  else if(TheMenuItem->Parent->Caption == "Save test result")
  {
      unsigned char FixSite = TheMenuItem->Caption.SubString(4, 1);
      SaveTestResult(FixSite);
  }
...

Sludder!!!
Jeg fik lige kopieret noget forkert rundt i mit program, i MenuItemClick() skal det være:
  TMenuItem *TheMenuItem = dynamic_cast<TMenuItem*>(Sender);
I stedet for.