Текущий архив: 2006.03.05;
Скачать: CL | DM;

Вниз

Подменю в 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;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.045 c