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

Вниз

Как создать в Run-Time пункт в TPopUpMenu?   Найти похожие ветки 

← →
Lony ©   (2002-11-16 00:24) [0]

Надо в Run-Time создавать пункты и подпункты меню. Как реализовать?

---

← →
Юрий Зотов ©   (2002-11-16 09:01) [1]

NewItem, NewLine, NewSubMenu. Примеры в справке.

---

← →
Александр Б.   (2002-11-16 09:56) [2]

"\Program Files\Borland\Delphi5\Help\Examples\Menu2\"

---

← →
Vladislav ©   (2002-11-16 09:59) [3]

Что-то в этом роде. Пишу "на лету" может где и есть ошибка, но вроде верно.

procedure Button1Click(Sender: TObject);
var mi: TMenuItem;
begin
mi := TMenuItem.Create( Self );
with mi do begin
Caption := "New Item";
onClick := MyProcedure;
end;
PopupMenu1.Add( mi );
end;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.01 c