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

Вниз

Динамически создать подменю   Найти похожие ветки 

← →
kyn66 ©   (2006-03-07 14:39) [0]

Есть меню... у него три MenuItem. У одного из итемов есть SubItem, состоящий из трих итемов. Мне нужно одному из трех итемов SubItema динамически создать свой SUbItem с количеством итемов в зависимости от кол-ва чего-то. Как это сделать правильно?

---

← →
Pavia ©   (2006-03-07 18:02) [1]

TForm1 = class(TForm)
   MainMenu1: TMainMenu;
   ....
   procedure pp(Sender: TObject);
   ....
   end;
Процедура для оброботки щелчка по миню.
procedure TForm1.pp(Sender: TObject);
begin
caption:=TMenuItem(sender).caption;
end;

procedure TForm1.FormCreate(Sender: TObject);
var  b: TMenuItem;
    a:array of  TMenuItem;
    i:integer;
begin
SetLength(a,3); // создаем 3 под меню
for i:=0 to 2 do
 begin
 a[i]:=TMenuItem.Create(self);
 a[i].Caption:="CC"+inttostr(i);
 a[i].OnClick:=pp;
 end;
b:=TMenuItem.Create(self);
b.Add(a);
b.Caption:="CC>";
MainMenu1.Items[0].Insert(0,b); // На форме должен быть уже один MenuItem.
end;

---

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

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

Наверх

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