Hvordan kan oppdateres dynamisk elementer av popupmenu skriver TForm1 = klasse (TForm) PopupMenu1: TPopupMenu; ... Prosedyre FormMouseDown (Sender: TObject; Knapp: TMouseButton; Shift: TShiftState, X, Y: Integer); privat prosedyre PopupClick (Sender: TObject); ... prosedyre TForm1.FormMouseDown (Sender: TObject; Knapp: TMouseButton; Shift: TShiftState, X, Y: Integer); begynne hvis Button = mbRight deretter begynne med PopupMenu1, elementene begynne //fjerne alle elementer mens Count > 0 sletter (0); //Legge første element Legg til (NewItem ( 'Sak 1', 0, usann eller sann, PopupClick, 0, 'Art.1')); //Legge andre element Legg til (NewItem ( 'Sak 2', 0, usann eller sann, PopupClick, 0, 'ITEM2')); //Legge til en separator Legg til (linjeskift); //Legge til en tredje elementet med to undermenyer Legg til (NewSubMenu ( 'Sak 3', 0, 'ITEM3', [NewItem ( 'subitem 1', 0, usann eller sann, PopupClick, 0, 'SubItem1'), NewItem ( ' subitem 2 ', 0, usann eller sann, PopupClick, 0,' SubItem2 ')])); med ClientToScreen (Point (X, Y)) gjøre Popup (X, Y); slutt; end, end, prosedyre TForm1.PopupClick (Sender: TObject); begynne //Ved hjelp her en dum måte å vite hvilken meny utløser onclick //hendelsen. Bruk taggen eiendom i stedet. case (Sender som TMenuItem) .MenuIndex fra 0: ShowMessage ( 'Sak 1'); 1: ShowMessage ( 'Sak 2'); end, end,