Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Uwe Raabe,
28. Nov 2018
Eigentlich schon, wobei eof(Telefonnummerzuweisen1.Items) irgendwie nicht ganz richtig aussieht. Und da fehlt noch irgendwo ein Next, sonst wird's kein EoF geben.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Uwe Raabe,
28. Nov 2018
Du legst einfach das SubMenu vor der Schleife an und fügst die Items dort hinzu:
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;
...