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

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

← →
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]

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

---

← →
ECM ©   (2005-04-14 16:11) [6]

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

---

← →
hotes ©   (2005-04-15 06:50) [7]

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

---

← →
ECM ©   (2005-04-15 10:48) [8]

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

---

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

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



Память: 0.46 MB
Время: 0.025 c