Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
ВнизПодменю в PopupMenu Найти похожие ветки
← →
Pit © (2006-02-18 17:39) [0]Доброго времени суток, Мастера подскажите как динамически создавать пункты подменю в PopupMenu ?
← →
Джо © (2006-02-18 17:45) [1]
procedure TForm1.Button1Click(Sender: TObject);
var
Mi, SubMi: TMenuItem;
begin
// создаем и добавляем пункт меню
Mi := TMenuItem.Create(PopupMenu1);
Mi.Caption := "Menu item";
PopupMenu1.Items.Add(Mi);
// добавляем к существующему menu item
// под-меню
SubMi := TMenuItem.Create(PopupMenu1);
SubMi.Caption := "Submenu item";
Mi.Add(SubMi);
end;
← →
Pit © (2006-02-18 17:54) [2]Спасибо большое Джо.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.02 c