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!

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