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

ПОМОГИТЕ !!!! Вопрос по Pop Up меню.   Найти похожие ветки 

← →
DARKChris   (2003-02-08 12:55) [0]

Уменя есть процедура:
отрывок:
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);

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

---

← →
Романов Р.В. ©   (2003-02-08 12:59) [1]

Items[i].OnClick := Item1Click;

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

---

← →
Palladin ©   (2003-02-08 12:59) [2]

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

---

← →
Cr@sh ©   (2003-02-08 14:11) [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 если они не повторяются.

---

← →
Yea-Yea   (2003-02-08 14:43) [4]

> Cr@sh © (08.02.03 14:11)

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

---

← →
Cr@sh ©   (2003-02-08 16:51) [5]

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

---

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

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



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