Dynamické přiřazení funkcí k menu – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Dynamické přiřazení funkcí k menu – Delphi – Fórum – Programujte.comDynamické přiřazení funkcí k menu – Delphi – Fórum – Programujte.com

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno

Spuštěný nový filmový web Filmožrouti.cz — vše o Avengers, Pacific Rim, Thor, Star Wars…
oxidián0
Grafoman
10. 5. 2018   #1
-
0
-

Jak bych měl postupovat, když budu potřebovat pro každou položku menu přiřadit funkci, dynamicky? Je v Delphi nějaká funkce, která umožňuje registrovat funkci pro dané menu?

poslední verze

Kód který mám:

procedure subMenuClick(Sender: TObject);
 var this: TmenuItem;
begin
end;

Při kliknutí na menu je třeba provézt průzkum daného adresáře, odvozeného buď od názvu položky menu nebo od pořadového čísla toho menu (to první bude asi jednodušší).

A jak vlastně mohu vrátit všechny položky menu Testy abych je mohl projít v cyklu?

Nahlásit jako SPAM
IP: 78.102.130.–
gna
~ Anonymní uživatel
619 příspěvků
10. 5. 2018   #2
-
0
-

TMenuItem má vlastnost OnClick. Je to v dokumentaci.

A parametr Sender je ta kliknutá položka. To je taky v dokumentaci.

Nahlásit jako SPAM
IP: 213.211.51.–
MilanL+1
Věrný člen
10. 5. 2018   #3
-
0
-

   

procedure trida.subOkruhyClick(sender :TObject);
var
  dir : string;
begin
  dir := sender.name;
  otevri(dir);
end;

#1 oxidián

jde to v pohodě, položce menu item jde přidat událost Onclick

vytvoříš si univerzální obslužnou funkci pro klik, kde si pak můžeš vtáhnout bud menuitem.name nebo menuitem.tag např.

při přidávání. pak doplníš jen k nové položce menu událost

NewItemMenu.onclick := objektTřídy.subOkruhyClick;

Nahlásit jako SPAM
IP: 91.139.9.–
oxidián0
Grafoman
10. 5. 2018   #4
-
0
-

NewItemMenu obsahuje nějakou vlastnost, která sdružuje vnořené položky submenu?

Nahlásit jako SPAM
IP: 78.102.130.–
MilanL+1
Věrný člen
10. 5. 2018   #5
-
0
-

#4 oxidián
místo newitemmenu dáš to co máš v programu před přidáním té nové položky submenu k nadřazené.

Jinak k dotazu procházení submenu - TMenuItem je potomek T component a ten má spoustu vlastností např. list vnořených component a counter, takže submenu lze procházet pomocí cyklu.

function Name_items_in_menu(const koren : TMenuItem) : TStringList;
var
  Item : TMenuItem;
  I : integer;

begin
  result := TStringList.create;
  for I := 0 to koren.ComponentCount-1
  begin
    Item := koren.Components[I];
    result.add(Item.name);
  end;
end;
Nahlásit jako SPAM
IP: 91.139.9.–
MilanL+1
Věrný člen
10. 5. 2018   #6
-
0
-

Drobnost místo 

MenuItem.Name potřebuješ spíš MenuItem.Caption

Nahlásit jako SPAM
IP: 91.139.9.–
oxidián0
Grafoman
10. 5. 2018   #7
-
0
-

Zkoušel jsem pro začátek jen něco jednoduchého:

if not assigned(TestyOrganizer) then
TestyOrganizer := TTesty.Create(Form1);
TestyOrganizer.JazykyInitiate;        // step 2.
TestyOrganizer.readINI; // step 1.
TestyOrganizer.DynMenu;        // step 3.

s := Testy.Components[0].name;
s := Testy.Components[1].name;
s := Testy.Components[2].name;
s := Testy.Components[3].name;
s := Testy.Components[4].name;
s := Testy.Components[5].name;
i := Testy.ComponentCount;


To krokuju krok za krokem a "s" by mělo v kukátku ukazovat hodnotu, ale ukazuje jen ''.

A

s := Testy.Components[0].Caption;
s := Testy.Components[1].caption;
s := Testy.Components[2].caption;
s := Testy.Components[3].caption;
s := Testy.Components[4].caption;
s := Testy.Components[5].caption;

Ukazuje že vlastnost caption/Caption neexistuje (is undeclared).

Jinak ale používám Caption Testy.pas #374, takže by to tam mělo být.

langMenuItems[i].Caption := Jazyky[i];

Nahlásit jako SPAM
IP: 78.102.130.–
MilanL+1
Věrný člen
10. 5. 2018   #8
-
0
-

#7 oxidián
hod mi sem ten kousek z Testy

create po vložení do testy langmenuitem[i]

a už tam máš v ini taky nějaký ty názvy?

Nahlásit jako SPAM
IP: 185.112.167.–
oxidián0
Grafoman
10. 5. 2018   #9
-
0
-

Mám tam

langMenuItems[i].Caption := Jazyky[i];

ale vlastně to je chyba má tam být Self.Jazyky[i].

Když se podíváš na writeINI poslední verze, které jsem předělal, zjistíš, že to generuju automaticky, pokud ini je prázdný. Mělo by se to vytvořit samo, pokud je prázdný, ale vytvoří se to až po uzavření programu. V konstantách konstanty.pas tam to je předdefinované jako pole.

Nahlásit jako SPAM
IP: 78.102.130.–
MilanL+1
Věrný člen
10. 5. 2018   #10
-
0
-

máš tam něco špatně, mě to v tom ini ty jazyky nevytváří.

místo podmínky na iniempty bys tam měl mít lancount=0

při chybějících adresářích, je tam jeden msgbox navíc. se základní cestou.

Nahlásit jako SPAM
IP: 185.112.167.–
MilanL+1
Věrný člen
10. 5. 2018   #11
-
+1
-
Zajímavé

#10 MilanL
už jsem na to přišel, je třeba použít přetypování


s := TMenuItem(Testy.Components[0]).Caption;

;
akorát v tý obslužný funkci nevím, jestli sender má být TObject nebo TComponent je třeba to vyzkoušet.

Nahlásit jako SPAM
IP: 185.112.167.–
oxidián0
Grafoman
10. 5. 2018   #12
-
0
-

Díky :)

Nahlásit jako SPAM
IP: 78.102.130.–
oxidián0
Grafoman
11. 5. 2018   #13
-
0
-

Vlastně potřebuju jinou funkci, ne click, ale takovou, která se spustí, když se pokusím o rozbalení menu (například tím že tam najedu myší nebo šipkama)

Nahlásit jako SPAM
IP: 78.102.130.–
MilanL+1
Věrný člen
11. 5. 2018   #14
-
0
-

#13 oxidián
no nevím zkusím po googlit v základu u TMenuItem nejsou tyhle event funkce "OnEnter" - vstup šipkama ani "OnMouseEnter"  - najetí myší, musel by sis je asi vytvořit.

Zkusím kouknout až dojdu z práce dom.

Pokud chceš nejdřív jakoby ukázat seznam před otevřením submenu, tak možná přes HINT.

Nahlásit jako SPAM
IP: 91.139.9.–
oxidián0
Grafoman
11. 5. 2018   #15
-
0
-

Tak když je tam nemaj tak to tam cpát nebudu. Načítání adresářů udělám všechno najednou.

Nahlásit jako SPAM
IP: 78.102.130.–
oxidián0
Grafoman
11. 5. 2018   #16
-
0
-

Teď se šťourám v proceduře

procedure TTesty.DynMenu;


kde na řádku #400 mi to krachuje s chybou range check error. idx na třetím řádku je 0.

Self.langMenuItems v kukátku píše pole s csinheritable...

Self.langMenuItems[0].caption píše název jazyka ... pocud se vše zdá být vpořádku.

Tohle je vnitřní (2.) cyklus:

for j:=0 to Self.SubDirs.Count-1 do
  begin
  idx := Self.JazykyIndexy.IndexOf(Self.Jazyky[i]); // najít ID menu daného jazyka
  Self.SubMenuItems[j] := TMenuItem.Create(Self.langMenuItems[idx]); // langMenuItems[idx]
  Self.SubMenuItems[j].Caption := Self.SubDirs[j];
  Self.langMenuItems[idx].Add(Self.SubMenuItems[j]);
  end;

V nadřazeném cyklu načtu podadresáře jazyka. To se přidá do SubDirs : TStringList;

https://sourceforge.net/projects/uc-heb/files/developer_backups/2018/unfinished/ucheb.2407.zip/download

Přidávám zálohu souboru .ini

Nějaký nápad v čem by mohla být chyba?

Nahlásit jako SPAM
IP: 78.102.130.–
MilanL+1
Věrný člen
12. 5. 2018   #17
-
0
-

#16 oxidián
smazány 2 odpovědi, měl jsem chybu v cestě v tom ini, v základu by ta položka měla být prázdná a při nahrávání by se při neurčené cestě měl automaticky nastavit ten programovej adresář.

Nahlásit jako SPAM
IP: 185.112.167.–
MilanL+1
Věrný člen
12. 5. 2018   #18
-
0
-

s tím ini pracuješ blbě, když se program správně neukončí, tak se smaže většina obsahu.

a hcyba je v tom createsubdirlist dostává se to tam nějak mimo index

Nahlásit jako SPAM
IP: 185.112.167.–
MilanL+1
Věrný člen
12. 5. 2018   #19
-
0
-

#16 oxidián
vůbec to tam nechápu co děláš s createSubDirsList v DynMenu:

1 cyklus v DynMenu , druhý cyklus ve funkci navíc ve funkci v každém cyklus mažeš pracovní list, takže v podstatě výstup je jen poslední seznam

navíc do funkce posíláš adresář z pole TestyDirs, a ve funkci používáš SubMenuItemsLoaded[i] pokaždé, navíc tan měníš hodnotu, takže při prvním průchodu se ti nastaví hodnoty na true a pro další už se nenačtou, zamysli se nad tím co tam s tím vlastně děláš.

Nahlásit jako SPAM
IP: 185.112.167.–
MilanL+1
Věrný člen
12. 5. 2018   #20
-
0
-

#19 MilanL
pokud to chápu dobře a chceš mít ty názvy všechny načtený, tak bys musel to submenu mít 2d pole první index jazyky druhý index submenu.

Tak jsem na to přišel, pokud používáš stejnej INI, problém je v těch stejných názvech do lanCount napočítáš všechny řádky, ale do TlistString se ti načtou jen 2 ostatní jsou duplicity, takže do DynMenu u těch 2 smyček místo lanCount dát TestyDirs.count, a u druhé ti chybí -1.

Nahlásit jako SPAM
IP: 185.112.167.–
MilanL+1
Věrný člen
12. 5. 2018   #21
-
0
-

#20 MilanL
mít klid a víc času radši bych ti to udělal sám, hledat ty chyby je kolikrát horší než to udělat.

Nahlásit jako SPAM
IP: 185.112.167.–
MilanL+1
Věrný člen
14. 5. 2018   #22
-
0
-

#21 MilanL
jinak nejspíš jsem pracoval s jinou verzí, tu verzi v posledním odkazu jsem už měl dřív

Nahlásit jako SPAM
IP: 91.139.9.–
oxidián0
Grafoman
18. 5. 2018   #23
-
0
-

Omlouvám se za odmlku.

Self.SubDirs := createSubDirsList(Self.TestyDirs[i]);

Vytvoří to seznam podadresářů pro aktuální jazyk Self.TestyDirs[i].

Pokud Self.TestyDirs[i] je např. 'english' tak vrátí seznam adresářů v testy/english...

Uvnitř toho vnořeného cyklu Jde o to vytvořit ty vnořené menu k tomuto jazyku

Asi dlouho nevydržím u PC bolí mě oči.

Nahlásit jako SPAM
IP: 78.102.130.–
MilanL+1
Věrný člen
Včera   #24
-
0
-

#23 oxidián
já tenhle víkend budu spíš později odpoledne a večer, přes den něco mám.

Kdyžtak hod aktuální verzi, ta poslední cos poslal nebyla aktuální s tím problémem.

Nahlásit jako SPAM
IP: 193.165.115.–
oxidián0
Grafoman
Včera   #25
-
0
-

Aha, tak ono se to přejmenovalo jinak tak místo 08 jsem poslal 07.

ucheb.2408.zip

Nahlásit jako SPAM
IP: 78.102.60.–
MilanL+1
Věrný člen
Včera   #26
-
0
-

#25 oxidián
čau koukal jsem na to, createsubdirslist nezná I to máš ve volající části, bud to musíš poslat jako parametr, nebo ty podmínku a nastavení po provedení u

Self.SubMenuItemsLoaded[i]

dát do té volající části

// v dynmenu tam kde se volá createsubdirslist

for i:=0 to lanCount-1 do
    begin
    if Self.SubMenuItemsLoaded[i]=false then
       begin
       Self.SubDirs := createSubDirsList(Self.TestyDirs[i]);
       Self.SubMenuItemsLoaded[i] := True;
       end;

...

a v createsubdisrlist ty řádky se submenuitems vyhodit


pak bych ještě doporučil přidat před ten druhý cyklus s J podmínku na subdirs.count>0

Nahlásit jako SPAM
IP: 193.165.115.–
oxidián0
Grafoman
Včera   #27
-
0
-

Myslíš asi řádek #389 sloupec 39. i je deklarované jako lokální proměnná a nastavuje se v cyklu for. Proto nechápu co říkáš, že nezná I. Nepředávám I, ale to co předávám by měla být položka typu TStringList.

Nahlásit jako SPAM
IP: 78.102.60.–
MilanL+1
Věrný člen
Včera   #28
-
0
-

#27 oxidián
deklarovaný to máš, ale for je v poznámce takže jí nenastaví, pokud bys to tam použil bude se to snažit několikrát načíst ty podadresáře toho samýho subdir které se nemění

proto by to mělo být o tu úroveň výš v dyn mernu jak jsem ti to napsal minule.

Nahlásit jako SPAM
IP: 193.165.115.–
MilanL+1
Věrný člen
Včera   #29
-
0
-

#28 MilanL
jinak mě to s tou mojí úpravou funguje.

Nahlásit jako SPAM
IP: 193.165.115.–
oxidián0
Grafoman
před 23 hodinami   #30
-
0
-

Já ten cyklus zakomentovaný nemám. Právě, když to nechám krokovat (originální kód) tak jsem se dostal k i=1 a j=2. Tam se to pokouší jet 3x místo dvakrát, proto to krachne. Self.SubDirs.Count je nastaven na 3 místo na 2.

Takže se podívám na řádek 67:

function TTesty.createSubDirsList(subdir: string):TStringList;


Počkej, ty si mluvil o zakomentované smyčce for, a tady vidím, že je jedna zakomentovaná. To vypadá, že si mluvil o něčem jiném než já?

Tam scházela podmínka

and (SearchRecord.name[1]<>'..')

No ale stále mi to dává o jednu položku navíc.

....

Už asi chápu kde je problém.

Nejdříve načtu ty podadresáře TestyDirs := createTestyDirsList(Self.TestyDir);

Takže učebnice mám pod Self.TestyDirs[i]. S tím bych měl pracovat a vytvořit menu.

Místo toho procházím podadresář učebnice:

Self.SubDirs := createSubDirsList(Self.TestyDirs[i]);

a tuto podpodsložku se pak snažím projít vnořeným cyklem.

který má 3 podsložky, ne 2.

Nahlásit jako SPAM
IP: 78.102.60.–
oxidián0
Grafoman
před 22 hodinami   #31
-
0
-

Jak zjistím kolikátá položka je menu na které jsem klikl?

pro funkci

TTesty.SubTestyClick

kde musím předat parametr i

SubDirs := createSubDirsList(dir, i);

Anebo já to vyřeším jinak.

 smažu

  if Self.SubMenuItemsLoaded[i]=true then
     exit;

A použiju toto:

    if Self.SubMenuItemsLoaded[i]=false then
       Self.SubDirs := createSubDirsList(Self.TestyDirs[i],i);

Respektive takto:

    if Self.SubMenuItemsLoaded[i]=false then
      begin
       Self.SubDirs := createSubDirsList(Self.TestyDirs[i]);
       Self.SubMenuItemsLoaded[i] := true;
      end;
Nahlásit jako SPAM
IP: 78.102.60.–
oxidián0
Grafoman
před 20 hodinami   #32
-
0
-

Teď mi to jede, ale před ukončením programu dej restartovat, maže to ten ini soubor.

verze 2409

Co se týče učebnic, zítra zkusím zjistit proč se mi všude zobrazuje Angličtina doby krále Jakuba na prvním místě a naopak textbook se nezobrazuje v menu. textbook má být v každém jazyku

Nahlásit jako SPAM
IP: 78.102.60.–
oxidián0
Grafoman
před 11 hodinami   #33
-
0
-

Zavedl jsem dvourozměrné pole SubMenuItems

type
  MenuSubFoldersGrid = Array of TMenuItem; // Menu Sub-folders
type
  TTesty = class(TObject)
  private
    i: integer;
    iniEmpty: boolean;
    langMenuItems : array of TMenuItem;
    SubMenuItems : Array[0..maxTestItems-1] of MenuSubFoldersGrid; // 2D array for Testy menu
...

2410

Nahlásit jako SPAM
IP: 78.102.60.–
oxidián0
Grafoman
před 3 hodinami   #34
-
0
-

Konečně jsem vyřešil to submenu... uff.

Teď musím ještě řešit proč se mi všude automaticky vytvoří adresář textbook.

Nová verze je 2411

Nahlásit jako SPAM
IP: 78.102.60.–
Zjistit počet nových příspěvků

Přidej příspěvek

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 5 hostů

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý