Fragment kodu:
- Kod: Zaznacz cały
for(int x=1;x<FormMain->Sg1->RowCount;x++) //przelatuje po kolumnie w tabeli sg1
{
TMenuItem *NewItem=new TMenuItem(FormMain->Popup1 );
FormMain->Wszystkiekonf1->Add(NewItem); //dynamicznie tworze elementy submenu w popupmenu
NewItem->Caption=FormMain->Sg1->Cells[1][x].UpperCase().Trim(); //TUTAJ nastepuje zmiana znaków na duze (dla polskich znaków diakrytycznych nie działa:()
FormMain->Wszystkiekonf1->Items[x-1]->OnClick=PozMenuListKonf; //przypisuje funkcje zdarzenia onclick
}





