| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Динамическое меню [FPC, Windows]

hotes ©   (2005-04-13 20:39:00) 

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

---

ECM   (2005-04-15 10:48:00) [1]

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

---

hotes   (2005-04-15 06:50:00) [2]

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

---

ECM   (2005-04-14 16:11:00) [3]

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

---

hotes   (2005-04-14 14:57:00) [4]

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

---

hotes   (2005-04-14 10:42:00) [5]

Спасибо1

---

ECM   (2005-04-14 09:23:00) [6]

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

---

hotes   (2005-04-14 08:33:00) [7]

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

---

z007   (2005-04-13 21:07:00) [8]

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

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;

---

Наверх