Текущий архив: 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
