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

Popupmenu   Найти похожие ветки 

← →
Miramax ©   (2003-06-20 12:58) [0]

Добрый день, уважаемые мастера! Пожалуйста подскажите как реализовать после нажатия кнопки создание еще одного подпункта меню?
Заранее благодарен!

P.S. Извиняюсь за тупой вопрос, но очень надо.

---

← →
Darrin ©   (2003-06-20 13:06) [1]

procedure TForm1.Button4Click(Sender: TObject);
var N2: TMenuItem;
begin
N2:=TMenuItem.Create(MainMenu1);
N2.Visible:=true;
N2.Caption:="11111";
MainMenu1.Items[0].Add(N2);
end;

---

← →
Miramax ©   (2003-06-20 13:25) [2]

procedure TForm1.Button4Click(Sender: TObject);
var N2: TMenuItem;
begin
N2:=TMenuItem.Create(MainMenu1);
N2.Visible:=true;
N2.Caption:="11111";
MainMenu1.Items[0].Add(N2);
end;

Спасибо, конечно за коб, но мне нужно, чтобы пункт добавлялся в Popupmenu, а не в MainMenu

---

← →
Centronix   (2003-06-20 14:19) [3]

> Спасибо, конечно за коб, но мне нужно, чтобы пункт добавлялся
> вPopupmenu, а не в MainMenu

Хорошо пошутил :)
PopupMenu1.Items[0].Add(N2);

---

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

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



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