Создание меню в Run-Time

← →
Blast © (2002-06-22 09:18) [0]

Вопросик такой появился: Как можно в Run-Time создать меню или ПОДПУНКТЫ и ПОДМЕНЮ существующего меню. А также обработчики для каждого из его пунктов.

Помогите - очень надо ;-)

← →
Song © (2002-06-22 09:22) [1]

TMenuItem.Add
TMenuItem.Insert
TMenuItem.onClick например

← →
Юрий Зотов © (2002-06-22 11:57) [2]

См. также NewMenu, NewSubMenu, NewPopupMenu и NewItem в справке Delphi. Там же и готовые примеры есть.

← →
MARcoDEN © (2002-06-22 12:06) [3]

Вот код:

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;

Спавибо ВСЕМ!!! ;-)

Разобрался. Могу прогу созданную подкинуть. кто хочет - шлите на мыло dxblast@yandex.ru

Прога создает динамическое меню из файлов и подкаталогов относительно какого-то корневого (Хранится в BlastNav.DAT). Файлы можно запускать как в обычном эксплорере. Висит в трее.
Правда использую для корня на C:\ а другой каталог, т.к. долго грузится.

Еще раз ВСЕМ СПА-СИ-БО!!! Будут вопросы - может и я чем помогу...

Создание меню в Run-Time Найти похожие ветки