Popupmenu -> NewSubMenu ?

[Uwe Raabe]

Du legst einfach das SubMenu vor der Schleife an und fügst die Items dort hinzu:

Delphi-Quellcode:

  subMenu := NewSubMenu('Telefonnummer zuweisen',0,'', []);
  PopupMenu1.Items.Add(subMenu);
  while ... do
    begin
      if(IB_CONTACTCONTACTTYPE_INCKEY.AsInteger = 100) then
        begin
          lPhoneNumber := IB_CONTACTCONTACT_CONTENTVALUE.AsString;
          subMenu.Add(NewItem(lPhoneNumber,0,False,True,OnClick,0,''));
        end;
      ...
    end;