Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Delphi putanja menija

[es] :: Pascal / Delphi / Kylix :: Delphi putanja menija

[ Pregleda: 1341 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Enan

Član broj: 256278
Poruke: 22
*.adsl-a-12.sezampro.rs.



Profil

icon Delphi putanja menija05.06.2013. u 11:36 - pre 131 meseci
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.

 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Delphi putanja menija05.06.2013. u 14:46 - pre 131 meseci
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;




 
Odgovor na temu

Enan

Član broj: 256278
Poruke: 22
*.dynamic.isp.telekom.rs.



Profil

icon Re: Delphi putanja menija05.06.2013. u 17:14 - pre 131 meseci
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

 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Delphi putanja menija05.06.2013. u 17:53 - pre 131 meseci
Code:
StringReplace(result, '&', '', [rfReplaceAll]);


ili

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

 
Odgovor na temu

Enan

Član broj: 256278
Poruke: 22
*.dynamic.isp.telekom.rs.



Profil

icon Re: Delphi putanja menija05.06.2013. u 21:09 - pre 131 meseci
Ok, to je to, hvala @savkic, @reiser
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Delphi putanja menija

[ Pregleda: 1341 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.