| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как создать в Run-Time пункт в TPopUpMenu? [D6, WinME]
Lony © (2002-11-16 00:24:00)Надо в Run-Time создавать пункты и подпункты меню. Как реализовать?
Vladislav (2002-11-16 09:59:00) [1]Что-то в этом роде. Пишу "на лету" может где и есть ошибка, но вроде верно.
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;
Александр Б. (2002-11-16 09:56:00) [2]"\Program Files\Borland\Delphi5\Help\Examples\Menu2\"
Юрий Зотов (2002-11-16 09:01:00) [3]NewItem, NewLine, NewSubMenu. Примеры в справке.
| |
