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

← →
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 этого эл-та из строк комбобокса.

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

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