Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 4 odgovora
  • 1.904 pregleda

Najnovija ↓

Delphi putanja menija 05.06.2013. u 12:36 · pre 163 meseca #1
Da li neko ima iskustava u redu sa menuDesigner-om, tacnije treba mi string od menija na koji je kliknuto,
ali string sastavljen od caption-a njegovog roditelja, roditelja roditelja itd, npr da string izgleda ovako:

GlavniMeni / SubMeni1 / SubsubMeni3 / SubSubSubMeni5

i to da npr bude, kada klinem na tu stavku menija, da mi u nekom Memo-u ispise putanju ili u
nekoj tekstualnoj datoteci, treba mi zbog pisanja helpa da mogu da copy/paste ovaj string,
da li postoji neka gotova funkcija ili neki properies od menuDesignera ili mora da se pravi,
nije bitno da li je u debug ili u edit modu aplikacija, ovo je bitno meni , nije za krajnjeg korisnika.

Re: Delphi putanja menija 05.06.2013. u 15:46 · pre 163 meseca #2
Ne postoji gotovo ali se to lako napravi sa jednom rekurzivnom funkcijom (pišem iz glave):

Code:


function GetFullPath(const AMenu: TMenuItem): string;
begin
  if Assigned(AMenu) then
    Result := GetFullPath(AMenu.Parent) + '.' + AMenu.Caption;
end;



Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Re: Delphi putanja menija 05.06.2013. u 18:14 · pre 163 meseca #3
Funkcija radi to sto mi treba, samo mi daje ampersende na svim captionima od svakog menija, pa
mi ispusuje nesto ovako

//&Sistemska Podešavanja/&Opšta Podešavanja/Adm&inistracija Sistema

u redu da ispisuje na pocetku svakog captiona, ali vidi poslednji caption, u sred stringa

Re: Delphi putanja menija 05.06.2013. u 18:53 · pre 163 meseca #4
Code:
StringReplace(result, '&', '', [rfReplaceAll]);


ili

Code:
while Pos('&', result) > 0 do
  Delete(result, Pos('&', result), 1)

Re: Delphi putanja menija 05.06.2013. u 22:09 · pre 163 meseca #5
Ok, to je to, hvala @savkic, @reiser
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme