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

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

Добавление нового пункта в pop-up меню [D5, XP]

Страницы:   < 1 2 3 >

DJ Kondakov ©   (2008-04-25 12:12:00) 

Подскажите, каким образом можно добавить пункт в меню? Функция ADD предполагает наличие уже готового пункта.

---

ZENsan   (2008-04-25 12:19:00) [41]

Я тозхе сначала думал, что Адд возвращает указатель... но блин процедура... так бы with ...Add(TmenuItem.Create(...)) do...

---

ZENsan   (2008-04-25 12:18:00) [42]

var
N: TMenuItem;
begin
N := TMenuItem.Create(ПопупМену1);
with N do
  begin
    Caption := 'asdasdas';
    OnClick := xxxxxx;
    ....
  end;
ПопупМену1.Add(N);
end;

:)

---

ANB   (2008-04-25 12:17:00) [43]

Хотя не. Не получится совсем без переменной.

---

ZENsan   (2008-04-25 12:17:00) [44]

Ето если субменю

---

ANB   (2008-04-25 12:16:00) [45]

В приниципе с With мона и без переменной

---

{RASkov}   (2008-04-25 12:16:00) [46]

> Функция ADD предполагает наличие уже готового пункта

Ну а не готовый-то какой смысл добавлять?
Создавай экземпляр TMenuItem и добавляй...

---

ANB   (2008-04-25 12:16:00) [47]

> MenuItem1

Это что ?

---

DJ Kondakov   (2008-04-25 12:15:00) [48]

Пасиба!

---

ANB   (2008-04-25 12:15:00) [49]

Сначала Create в переменную, потом Add.

---

ZENsan   (2008-04-25 12:14:00) [50]


var
 N: TMenuItem;
begin
 N := TMenuItem.Create(MenuItem1);
 with N do
   begin
     Caption := 'asdasdas';
     OnClick := xxxxxx;
     ....
   end;
 MenuItem1.Add(N);
end;


---

Страницы:   < 1 2 3 >

Наверх