Динамически создать подменю [D7, WinXP]
kyn66 © (2006-03-07 14:39:00)
Есть меню... у него три MenuItem. У одного из итемов есть
SubItem, состоящий из трих итемов. Мне нужно одному из трех итемов
SubItema динамически создать свой SUbItem с количеством итемов в
зависимости от кол-ва чего-то. Как это сделать правильно?
Pavia (2006-03-07 18:02:00) [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;
Наверх 
ЧАТ |
Орешник |
|
