Dynamiczne menu odwołanie do tagów

Witam

Mam problem z odwołaniem do tagów dynamicznie tworzonego Menu. Elementy menu pobierane sa z ini. chciałbym np. z pozycji buttona wybrać dany item z menu bez względu na caption.

Przekazywanie i tworzenie menu wykonuje poniższa procedura.

 begin
    NazwaPrzekaznika[i]:= PlikINI.ReadString('NazwyPrzekaznikow', 'Przekaznik_'+IntToStr(i+1)+'_Nazwa', 'PrzekaŸnik '+IntToStr(i+1));
    MenuItem:= TMenuItem.Create(MGlowne);
    MenuItem.Caption:= NazwaPrzekaznika[i];
    MenuItem.Tag:= i;
    MenuItem.OnClick:= MenuUruchomPrzekaznik;
    MGlowne.Items[1].Add(MenuItem);
  end;
    if(MGlowne.Items[0].Count > 0)then
 begin
    for i:= MGlowne.Items[0].Count-1 downto 0 do
      MGlowne.Items[0].Delete(i);

Czytam to kilka razy, ale nie bardzo wiem o co Tobie dokładnie chodzi. Odwołać się zawsze do tworzonych dynamicznie komponentów możesz rzutując na ich typ i wykorzystując funkcję FindComponent. Tylko oczywiście należy nadać komponentom sensowną własność Name i przy odwoływaniu sprawdzać czy to co zwróci FindComponent nie jest równe nil. Poza tym nie wiem do czego nadal wykorzystywać chcesz własność własność Tag. Rozumiem, że po ustawianiu jej na Iterator pętli (tutaj u Ciebie chyba będzie numerowny od U, a nie od I + 1, ale może tak chcesz) będziesz gdzieś ten numer wykorzystywał później w kodzie. Może ktoś inny coś jeszcze doradzi, bo ja do końca nie mogę zrozumieć co chcesz osiągnąć i w czym problem. Bo jeżeli chcesz się odwołać do MenuItemów, nie po własności Name, a po Tag to musiał byś napisać własną funkcję wyszukującą w pętli wszystkie elementy Menu i po ustaleniu że Tag wynosi tyle co podany argument funkcji zwracała by jako Result ten MenuItem i oczywiście robiła Break.

Ok to możne inaczej. MMenu zawiera dwa buttony widoczne z poziomu kompilatora 'cos' i 'cos2'. Program w momencie uruchomienia pobiera do kazdego buttona itemy z pliku ini, itemy pobierane nie sa zapisane w kodzie. Problem polega na tym ze chciałbym odwoływać się do tych dynamicznych itemow przez np standardowy button z formy, odwołanie nie możne byc po name bo go będę modyfikował w ini. jedyne co mi pozostaje to tagi które narasta z każdym dynamicznym 'pod' itemem. Tak jak napisałeś procedura która odwołuje się do większego kodu.

Poniżej cala procedura.

var
  PlikINI: TIniFile;
  i: Integer;
  j: Integer;
  MenuItem: TMenuItem;
begin
  PlikINI:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'programy.ini');

  IloscProgramow:= PlikINI.ReadInteger('Ogolne', 'IloscProgramow', 0);
  IloscPrzekaznikow:= PlikINI.ReadInteger('Ogolne','IloscPrzekaznikow',0);
for i := 0 to IloscPrzekaznikow-1 do
  begin
    NazwaPrzekaznika[i]:= PlikINI.ReadString('NazwyPrzekaznikow', 'Przekaznik_'+IntToStr(i+1)+'_Nazwa', 'PrzekaŸnik '+IntToStr(i+1));
    MenuItem:= TMenuItem.Create(MGlowne);
    MenuItem.Caption:= NazwaPrzekaznika[i];
    MenuItem.Tag:= i;
    MenuItem.OnClick:= MenuUruchomPrzekaznik;
    MGlowne.Items[1].Add(MenuItem);
  end;
    if(MGlowne.Items[0].Count > 0)then
 begin
    for i:= MGlowne.Items[0].Count-1 downto 0 do
      MGlowne.Items[0].Delete(i);
 end;
  for i:= 0 to IloscProgramow-1 do
    begin
    NazwaProgramu[i]:= PlikINI.ReadString('Program '+IntToStr(i+1), 'NazwaProgramu', 'Bez nazwy');
    MenuItem := TMenuItem.Create(MGlowne);
    MenuItem.Caption := NazwaProgramu[i];
    MenuItem.Tag:= i;
    MenuItem.OnClick := WybranieProgramu;
    MGlowne.Items[0]. Add(MenuItem);
    for j:= 0 to IloscPrzekaznikow-1 do
    begin
      Przekaznik[i, j]:= PlikINI.ReadInteger('Program '+IntToStr(i+1), 'Przekaznik_'+IntToStr(j+1), 0);
      Wlasciwosci.log('Wczytuje prog.'+ IntToStr(i+1)+' ('+NazwaProgramu[i]+')'+#13#10+'Przekaznik: '+IntToStr(j+1)+' ('+NazwaPrzekaznika[j]+') ze stanem: '+IntToStr(Przekaznik[i, j]));
    end;
  end;
  PlikINI.Free;

Jeżeli chcesz odwołać się do tych itemów z procedur MenuUruchomPrzekaznik WybranieProgramu to w nich wystarczy sprawdzić TMenuItem(Sender).Tag. Wtedy po kliknięciu na dany MenuItem zorientujesz się który to jest.
Przy odwoływaniu z innych procedur musisz zrobić tak jak poradził olesio.

Odwołanie ma być z innej procedury np. onclick buttona. Wiec pozostaje przykład Olesia, niestety to pierwsze moje podejście do tego typu rzeczy, i powiem szczerze ze przydał by się jakiś przykładowy kod :)

tayamoto napisał(a):

powiem szczerze ze przydał by się jakiś przykładowy kod :)

Powiem szczerze że przydał by się jakiś dokładny opis problemu i co chcesz osiągnąć. Dopraw to jeszcze TBrainem, debuggerem i googlem.
Przykładowy kod jest dla osób które są zbyt głupie żeby się nauczyć gramatyki języka (paru takich mamy), ale ciebie póki co nie widziałem w tej grupie. Jak szukasz łatwych efektów to dział praca. A jak szukasz przykładów a nie rozwiązań za ciebie to www.google.pl ma ich całkiem sporo.

Piszesz strasznie dziwnie/nieintuicyjnie... :P

Program w momencie uruchomienia pobiera do kazdego buttona itemy z pliku ini, itemy pobierane nie sa zapisane w kodzie.

Nic z tego nie idzie zrozumieć... Nie możesz normalnie napisać - fachowym językiem? Domyślam się, że chodzi o dynamiczne tworzenie komponentów i pobieranie informacji z pliku INI dla nowych pozycji w menu;

Problem polega na tym ze chciałbym odwoływać się do tych dynamicznych itemow przez np standardowy button z formy

To nie jest problem, trzeba to tylko dobrze przemyśleć;

odwołanie nie możne byc po name bo go będę modyfikował w ini.

Dlaczego? Po co? Kiedy? - opisz dokładniej te czynności;

jedyne co mi pozostaje to tagi które narasta z każdym dynamicznym 'pod' itemem.

Co to znaczy "poditemem"? Chodzi Ci o pozycję z danej sekcji menu? Czy SubItem danego Itema? Niekoniecznie musisz do tego używać tagów - listę można przechowywać choćby nawet w dodatkowej, specjalnie przygotowanej macierzy;

Nie wiem czy ja coś źle zrobiłem, ale podczas formatowania tego kodu (wybacz, ale dla mnie to nie jest sformatowane) zauważyłem, że masz o jeden end za dużo - większego znaczenia to nie ma, ale dziwi trochę;

Z racji tej, że trochę zmęczony jestem i myślę w zwolnionym tempie, proszę opisz krok po kroku co dokładnie chcesz zrobić, jak cały ten mechanizm wygląda i jaki efekt chcesz uzyskać, a postaram się pomóc, bo teraz to nie rozumiem wszystkiego;

Już chyba dokładniej niż dwa posty wyżej się nie da, do TBraina za cienki jestem :) wiec pozostaje Google.

tayamoto napisał(a):

    for i:= MGlowne.Items[0].Count-1 downto 0 do
      MGlowne.Items[0].Delete(i);

Potrafisz usuwać itemy z MGlowne.

Na podobnej zasadzie uzyskujesz dostęp do tagów takich itemów

MGlowne.Items[0][i].Tag

i sprawdzasz ich wartości.

ps
Ale skoro nadajesz kolejne wartości tagów MenuItem.Tag:= i; to od razu możesz odwołać się do konkretnego itema o indeksie i poprzez MGlowne.Items[0][i]

Faktycznie trochę namieszałem. Ok po kolei, na main menu mam utworzone dwa buttony "programy" oraz "przekaźniki". Podczas uruchamiania programu (formy) pobierane sa z ini dynamiczne itemy (nazwy) zarówno do "programy" i "przekaźniki". Nazwy Itemow (przekaźników lub programów) oraz ich ilość modyfikowana jest w pliku ini. A teraz to co chce osiągnąć, che odwoływać sie do tych dynamicznych itemow poprzez np button na formie. Z uwagi na mozliwosc zmiany nazwy 'programow' i 'przekaźników' w ini. nie mogę odnajdywać ich po name wiec pozostaje po tagu, chyba ze się mylę.

Ps. Przekaźniki to odwołania do 8 urządzeń zewnętrznych których nazwy modyfikuje w ini a programy to kombinacje on/off tych przekaźników, nawy tez muszę modyfikować w ini.