dinamički meni

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako u delphi-ju dinamički kreirati meni sa podmenijima i odgovarajućim akcijama na klik mišem? U help-u sam našao prost primer kreiranja, ali sa početnom stavkom i bez podmenija.

Cilj mi je da kreiram meni na osnovu podataka iz baze podataka gde su upisane veze menija sa podmenijima, kao i neke akcije.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

procedure TForm1.AddButtonClick(Sender: TObject); var   index: Integer;   NewItem: TMenuItem; begin   for index := 0 to 3 do   begin     NewItem := TMenuItem.Create(PopupMenu1); // create the new item     PopupMenu1.Items.Add(NewItem);// add it to the Popupmenu     NewItem.Caption := 'Menu Item ' + IntToStr(index);     NewItem.Tag := index;     NewItem.OnClick = PopupMenuItemsClick;// assign it an event handler   end; end;

Ovo je primer iz helpa. Samo zameni PopupMenu sa MainMenu komponentom i dobićeš prvi nivo menija. Dalje svakoj od tih stavki iz prvog nivoa možeš dodeliti podstavke i to na prikazani način preko njihove Items kolekcije (one mogu imati i svoje podstavke itd.)