Popupmenu Delphi
Létrehozása az eszköztár standard komponens PopupMenu A forma, akkor észrevehetjük, hogy PopupMenu - egy nem-vizuális komponens. Általában ez PopupMenu felugró menü jelenik meg, amikor a felhasználó rákattint a jobb egérgombbal.
Jól van, hogy PopupMenu? Ehhez csak lekötni egy felugró menü formájában. Ez úgy történik, az Események lapon (események) fő formái PopupMenu. Ezt követően, az F9 A projekt elindítása jobb gombbal kattintva, akkor a következőket láthatjuk:
Mellesleg PopupMenu hasonlóan MainMenu. de a helyi menük különböző formáinak nincs kombinálva. Azt mondhatjuk, hogy az egyik formája - egy PopupMenu. és a mellette másik példa PopupMenu.
A nagyon kialakítása a pop-up menü Delphi jön egy kivitelező:
Az ábra azt mutatja, hogy van PopupMenu Name = N1 mint ez a helyzet a MainMenu. Tehát az alapvető tulajdonságokat lehet számítani az egyik kéz ujjai: Aligment (kiigazítás), AutoHotKeys (gyorsbillentyűk) AutoPopup (automatikus megjelenése a jobb gombbal kattintva), TrackButton (ami gomb aktiválja a pop-up menüben, amikor csatlakozik a gombra az eszköztáron). A fennmaradó ingatlanok, tartja magát, nincs semmi különös.
ProcedureDoPopup (Sender: TObject); Generál OnPopup esemény
Írja TFindItemKind = (fkCommand, fkHandle, fkShortCut) Funkció FindItem (Érték: Word, Fajta: TFindItemKind): TMenuItem;
Megkeresi és visszaadja a menüpontjára
Értékek Érték egyenlő Kind = fkCommand;
Amikor Kind = fkHandle - kezelni pop-up
menüben, amikor Kind = fkShortCut - gyorsbillentyűk kód
ProcedurePopup (x, y: Egész szám); Ez azt mutatja, a menü képernyőn az adott helyre
Az Események lapon (események): OnChange - Event a Változások menüből OnPopup - esemény bekövetkezik megjelenése előtt az előugró menüben.
tulajdonságok és események PopupMenu alkatrészek, TImage