, blz.???????,,,, is een gebeurtenis = (platform), popupmenu1:tpopupmenu;,,,...,, programma formmousedown (afzender: TObject; knopen: tmousebutton;,, tshiftstate; de X - en Y - verandering:: gehele);,, privé, programma 's popupclick (afzender: TObject);,,,, en... Een gebeurtenis, de procedures aan de hand. Formmousedown (afzender: TObject; knopen: tmousebutton;,, tshiftstate; de X - en Y - verandering:: gehele);,,,, als de knop = mbright dan beginnen, en popupmenu1, projecten te doen,,,, ///////schrapping van alle projecten, terwijl de graaf van 0 > wel, het schrappen van (0), eerste alinea, toegevoegd; ///////, (nieuwe producten toegevoegd (punt 1, 0, valse, echt, popupclick, 0, "de eerste"); de tweede alinea, toegevoegd. ///////, nieuwe producten toe te voegen (,, (punt 2, 0. Niet echt, schat.Pupclick, 0, "2");,, /bij de REËLE, toe te voegen (-); toevoeging van een derde,. ///////- menu 's, de toevoeging van 2, punt 3 (newsubmenu (", 0," geen pest, [van nieuwe producten ('subitem 1, 0, valse,,, echt, popupclick, 0, "subitem1"), en nieuwe producten ('subitem 2 ", 0, valse, echt, popupclick, 0,,," subitem2 ")])); en het gebruik van,, (punt (x, Y)), (X, Y), pop. Aan het einde van de laatste,,,,,,,,,,; aan het einde van een gebeurtenis; programma' s. Popupclick (afzender: TObject);,,,, ///////hier op een domme manier weten welk menu geactiveerd onclick evenement,, //.Het gebruik van de eigenschap van merken.,, de zaak (de afzender is een tmenuitem). Menuindex, 0:showMessage (punt 1, "); (punt 2,, 1:showMessage");,,,,,, einde.