Динамическое меню

← →
hotes © (2005-04-13 20:39) [0]

Здравствуйте!
Народ, подскажите пожалуйста, как можно динамически создавать меню на KOL. Предполагается, что заранее пункты меню неизвестны, а в ходе выполнения программы становяться известными пункты меню, например: строковые переменные a,b,c?
Спасибо заранее

← →
z007 (2005-04-13 21:07) [1]

так же,как и статически:

var MMnu: pMenu; a,b,c : string; procedure TForm1.MEnuItemEvnt(Sender: PMenu; Item: Integer); begin //case item of //if Sender.ItemText[item] = end; procedure TForm1.Button1Click(Sender: PObj); begin a:="item 1"; b:="item B"; c:="item Ц"; MMnu := NewMenu( Form, 0, [ pChar(a), "(" , pChar(b), pChar(c), ")", "" ], MEnuItemEvnt ); end;

← →
hotes © (2005-04-14 08:33) [2]

Это понятно, я имел ввиду, если неизвестно заранее ни количество, ни состав меню. Например считывается с файла?

← →
ECM © (2005-04-14 09:23) [3]

Используй методы
MMnu.AddItem,
MMnu.IndexOf,MMnu.Items.Remove,MMnu.RemoveSubMenu и т.д.

← →
hotes © (2005-04-14 10:42) [4]

Спасибо1

← →
hotes © (2005-04-14 14:57) [5]

Извините еще раз за беспокойство. Вы не знаете где нибудь примера создания меню из иконок(рисунков)?

Это как? ... может быть отрисовка иконок в меню?
поясните свою мысль...:)

Да. Отрисовка иконок в меню.

http://bonanzas.rinet.ru/DemoMenuBitmaps.zip
http://bonanzas.rinet.ru/DemoDynamicMenus.zip

Динамическое меню Найти похожие ветки