ПОМОГИТЕ !!!! Вопрос по 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]

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

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