PopMenu

← →
ORMADA © (2004-01-14 07:30) [0]

Как глобально узнать № пункта меню, кторый был нажат не обрабатывая каждый в отдельности.

← →
TUser © (2004-01-14 07:46) [1]

Взять его Caption и пробежать по всем Item"ам - сравнить с этим Caption"ом. Где совпадет - там и есть нужный тебе номер.

← →
Романов Р.В. © (2004-01-14 07:53) [2]

У пункта меню нет номера. Можно назначить всем пунктам один обработчик.

← →
REP © (2004-01-14 07:59) [3]

Типа (Sender as TMenuItem)

← →
ORMADA © (2004-01-14 08:00) [4]

Я понимаю что назначить всем пунктам один обработчик но надо то узнать какой пункт был выбран !

← →
Романов Р.В. © (2004-01-14 08:12) [5]

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
ShowMessage(TMenuItem(Sender).Caption);
end;

← →
REP © (2004-01-14 08:21) [6]

ShowMessage(TMenuItem(Sender).Name);
Тогда убирай "N" из имени и вот тебе номер (если русские Caption иначе имя берется из него)

← →
TUser © (2004-01-14 08:36) [7]

2 Романов Р.В. © (14.01.04 07:53) [2]
У пункта меню есть номер. Вот как его получить
procedure TForm1.N11Click(Sender: TObject); var s:string; i:integer; begin s:=(Sender as TMenuItem).Caption; i:=0; while popupMenu1.Items[i].Caption<>s do inc (i); showMessage(inttostr(i)); end;

← →
Zerglin (2004-01-14 08:47) [8]

Можно и через Caption, а я к Tag-ам привык :)

if Sender is TMenuItem then
Case TMenuItem(Sender).Tag of
0: ... ;
1: ... ;
end;

PopMenu Найти похожие ветки