Mich würde interessieren, kann ich die Submenus auch mit einer WhileSchleife
So etwa wie:
Code:
while not eof(Telefonnummerzuweisen1.Items) do
begin
if(Telefonnummerzuweisen1.Items <> lPhonenumber) then
Telefonnummerzuweisen1.Add(NewItem(lPhoneNumber,0,False,True,OnPhoneNumberClick,0,''));
end;