Скачать: CL | DM;

Народ, подскажите, как скопировать данные из списка в ...   Найти похожие ветки 

← →
nitro313   (2002-06-23 10:17) [0]

Народ, подскажите, как скопировать данные из списка Combobox в подменю компонента PopupMenu. Хочется, чтобы это подменю формировалось динамически из строк Combobox"а.

Заранее спасибо.

---

← →
Goblinus ©   (2002-06-23 10:23) [1]

procedure ComboBox1Copy (Sender: TObject);
var
i: integer;
begin
for i := 0 to ComboBox1.Items.Count - 1 do begin
MenuItem := TMenuItem.Create(Self);//Точно не знаю, Self или Application надо
MenuItem.Caption := ComboBox1.Items.Strings[i];
end;
end;

---

← →
VDen ©   (2002-06-23 10:30) [2]

...
Menuitem:=TMenuItem.Create(PopupMenu);
MenuItem.Caption:=ComboBox1.Items.Strings[i];
PopupMenu.Items.Add(MenuItem);
...
Так будет правильнее...

---

← →
nitro313   (2002-06-23 12:00) [3]

Спасибо, все работает, только у меня добавляются строки в уже существующее popupmenu1. А мне нужно, чтобы создавалось подменю, этого меню. У меня есть эл-т меню popupmenu1 под именем N26. Так вот я хочу, чтобы создавалось submenu этого эл-та из строк комбобокса.

Жду ответа...

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c