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

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

ПОМОГИТЕ !!!! Вопрос по Pop Up меню. [D5]

DARKChris ©   (2003-02-08 12:55:00) 

Уменя есть процедура:
отрывок:
var
MyPopUp:TPopUpMenu;
Items:array[0..3] of TMenuItem;
begin
MyPopUp:=TPopUpMenu.Create(self);
for i:=0 to 3 do
begin
Items[i]:=TMenuItem.Create(self);
Items[i].Caption:=IntToStr(I);
MyPopUp.Items.Add(Items[i]);
end;
MyPopUp.PopUp(X,Y);

Как мне обработать нажатие на пункты данного меню ? Эта процедура срабатывает на нажати правой кнопки мыши.

---

Cr@sh   (2003-02-08 16:51:00) [1]

2Yea-Yea
Дело вкуса, я name люблю, т.к. не повторяется 100%.

---

Yea-Yea   (2003-02-08 14:43:00) [2]

> Cr@sh © (08.02.03 14:11)

Дополнение:
Можно юзать теги, Items[i].Тег := i; (если они не повторяются)

---

Cr@sh   (2003-02-08 14:11:00) [3]

Дополнение Романов Р.В. © (08.02.03 12:59)

Items[i].OnClick := ItemClick;

procedure TForm1.ItemClick(Sender: TObject);
begin
if (Sender as TMenuItem).name="aaa" then
...
if (Sender as TMenuItem).name="bbb" then
...
if (Sender as TMenuItem).name="ccc" then
...
end;

Вместо name можешь также заюзать caption если они не повторяются.

---

Романов Р.В.   (2003-02-08 12:59:00) [4]

Items[i].OnClick := Item1Click;

procedure TForm1.Item1Click(Sender: TObject);
begin
//
end;

---

Palladin   (2003-02-08 12:59:00) [5]

назначь обработчик каждому пункту
Items[i].OnClick:=

---

Наверх