| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание меню в Run-Time
Blast © (2002-06-22 09:18:00)Вопросик такой появился: Как можно в Run-Time создать меню или ПОДПУНКТЫ и ПОДМЕНЮ существующего меню. А также обработчики для каждого из его пунктов.
Помогите - очень надо ;-)
Blast (2002-06-22 18:07:00) [1]Спавибо ВСЕМ!!! ;-)
Разобрался. Могу прогу созданную подкинуть. кто хочет - шлите на мыло dxblast@yandex.ru
Прога создает динамическое меню из файлов и подкаталогов относительно какого-то корневого (Хранится в BlastNav.DAT). Файлы можно запускать как в обычном эксплорере. Висит в трее.
Правда использую для корня на C:\ а другой каталог, т.к. долго грузится.
Еще раз ВСЕМ СПА-СИ-БО!!! Будут вопросы - может и я чем помогу...
MARcoDEN (2002-06-22 12:06:00) [2]Вот код:
procedure TForm1.Button1Click(Sender: TObject);
var
iMain : TMenuItem;
iTemp : TMenuItem;
i : integer;
begin
iMain:=TMenuItem.Create(Self);
iMain.Caption:="SubMenu";
PopupMenu1.Items.Add(iMain);
for i:=0 to ComboBox1.Items.Count-1 do begin
iTemp:=TMenuItem.Create(Self);
iTemp.Caption:=ComboBox1.Items[i];
iTemp.OnClick:=ClickMethod;//обработчик
iMain.Add(iTemp);
end;
end;
Юрий Зотов (2002-06-22 11:57:00) [3]См. также NewMenu, NewSubMenu, NewPopupMenu и NewItem в справке Delphi. Там же и готовые примеры есть.
Song (2002-06-22 09:22:00) [4]TMenuItem.Add
TMenuItem.Insert
TMenuItem.onClick например
| |
