procedure TForm2.addsubitem(s:string; too : integer);
var
newitem, toitem : Tmenuitem;
begin
too:=3;
toitem:=MainMenu1.items[too];
newitem:=tmenuitem.create(toitem);
newitem.caption:=S;
newitem.OnClick:=newitemClick;
toitem.onclick:=nil;
toitem.insert(toitem.count,newitem);
end;
Как удалить динамически созданные пункты в MainMenu?
В очередной раз всем привет! Я динамически добавляю пункты в MainMenu, вот такой процедуркой:
А как их динамически удалять, я не знаю, помогите кто чем может, пожалуйста! Заранее благодарен.
Код:
Код:
item.Parent.Delete(item.Parent.IndexOf(item));
item.Free;
item.Free;
))))
Цитата: misha_turist
Код:
item.Parent.Delete(item.Parent.IndexOf(item));
item.Free;
item.Free;
))))
Спасибо, я уже сделал, но у меня это заняло 10 строчек, сейчас так попробую!