Текущий архив: 2003.06.16;
Скачать: CL | DM;

Вниз

Динамическая работа с MainMenu1   Найти похожие ветки 

← →
Evg12   (2003-06-03 15:44) [0]

Уважаемые, возможно вопрос покажется глупым но......
Как добавить динамически элемент в MainMenu1 и пункт я знаю.
Вопрос - как динамически добавить в этот пункт подпункт?
и как стереть все пункты, вместе с подпунктами? (то есть очистить один из элементов верхнего уровня MainMenu1).

---

← →
Yakudza ©   (2003-06-03 17:53) [1]

Вот так, например можно добавлять подменю.

procedure TForm1.FormCreate(Sender: TObject);
var
MItem : TMenuItem;
i : integer;
SMenu : array [0..10] of TMenuItem;
begin

for i:= 0 to 10 do begin
MItem := NewItem("New item "+IntToStr(i),TextToShortCut("Ctrl+N"),False,True,Action1.OnExecute,0,"Item"+IntToStr(i));
SMenu[i] := MItem;
end;

MainMenu1.Items[0].Add(NewSubMenu("NewSubmenu",0,"TSubMenu",SMenu));

end;

Вот так можно удалять

MainMenu1.Items[0][0].Delete(0);

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c