Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Народ, подскажите, как скопировать данные из списка в ... [D5]


nitro313 ©   (2002-06-23 10:17:00) 

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

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


nitro313   (2002-06-23 12:00:00) [1]

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

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


VDen   (2002-06-23 10:30:00) [2]

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


Goblinus   (2002-06-23 10:23:00) [3]

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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо