dinamički meni

dinamički meni

offline
  • Pridružio: 12 Nov 2006
  • Poruke: 52

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.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • savkic 
  • Novi MyCity građanin
  • Pridružio: 05 Jun 2007
  • Poruke: 29

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.)



Ko je trenutno na forumu
 

Ukupno su 717 korisnika na forumu :: 33 registrovanih, 4 sakrivenih i 680 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., aljosa7, Boris90, crnitrn, cvrle312, dac, dragon986, Duško, Hoegaarden, I AM THE KING, JimmyNapoli, Klecaviks, kovinacc, kuntalo, kybonacci, LUDI, MarKhan, mercedesamg, Mercury, miodrag, Misha V, nenad81, Panter, pedja63, sakota79, Sale.S, Sirius, theNedjeljko, Trpe Grozni, VJ, vlahale, vsn111, wolf431