, hvordan dynamisk ajourføring, der popupmenu?,,,, tform1 = klasse (tform), popupmenu1: tpopupmenu;,,,,,,,,, procedure formmousedown (afsender: tobject; knap: tmousebutton;, skift: tshiftstate; x, y: heltal), private, procedure popupclick (afsender: tobject);,,,,,,,,, procedure tform1. formmousedown (afsender: tobject; knap: tmousebutton;, skift: tshiftstate; x, y: heltal), begynder, hvis knap = mbright så, begynder med popupmenu1, post, begynder, //fjernelse af alle produkter, mens tæller > 0, slettes (0); //tilsætning af første punkt, tilsættes (newitem ('item 1, 0, falske sande, popupclick, 0, item1 '); //tilføje andet punkt, tilsættes (newitem ('item 2, 0, falsk, sandt, p.o.pupclick, 0, item2 ')); //at tilføje en separator, tilsættes (newline); //at føje en tredje punkt på dagsordenen med to submenus, tilsættes (newsubmenu ('item 3, 0, item3, [newitem ('subitem 1, 0, falsk, sandt, popupclick, 0, subitem1 "), newitem ('subitem 2, 0, falske sande, popupclick, 0,,, subitem2)]), med clienttoscreen (punkt (x, y) gør, pop - up - (x, y),,,,,,,,,,,,, procedure tform1. popupclick (afsender: tobject), begynder, //bruger her en dum måde at vide, hvilken menu er udløser onclick, //begivenhed.anvendelse af rfid - ejendom i stedet.,, sag (afsender som tmenuitem). menuindex, 0: showmessage ('item 1), 1: showmessage ('item 2);,,,,,,,,