| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как программно добавить строку меню и подменю в TMainMenu [D5]
Eraser © (2002-03-04 16:01:00)Нужно добавить несколько меню а к ним подменю в MainMenu. Подскажите люди добрые
Набережных С. (2002-03-04 18:00:00) [1]например, так:
MI,MCI:TMenuItem;
MI:=TMenuItem.Create(MainMenu);
MI.Caption:=...
MainMenu1.Items.Add(MI);
MCI:=TMenuItem.Create(MainMenu);
MCI.Caption:=...
MCI.OnClick:=...
MI.Add(MCI);
MCI:=TMenuItem.Create(MainMenu);
MCI.Caption:=...
MCI.OnClick:=...
MI.Add(MCI);
MBo (2002-03-04 16:32:00) [2]var mi:tmenuitem;
begin
mi:=tmenuitem.create(self);
mi.caption:="QQ";
//mi.onclick:= выбирай как надо
//mi.Action:=
mainmenu1.items.add(mi);
| |
