Текущий архив: 2002.07.04;
Скачать: 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 вся ветка
Текущий архив: 2002.07.04;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.005 c
