Скачать: CL | DM;

Создание меню в 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;

---

← →
Blast ©   (2002-06-22 18:07) [4]

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

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

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c