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);

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