обработчик popupmenu

[yuta_86]

добрый день,

есть popupmenu с 5 пунктами, процедура обработки для всех их одна,

как привязать выбор пункта меню к одному обработчику, в обработчик надо посылать caption пункта меню.

если привязывать выбор каждого пункта к одному обработчику, то думаю это нехорошо.
можно ли как-то отлавливать какой пункт меню выбран?

[evg_m]

можно ли как-то отлавливать какой пункт меню выбран?

TNotifyEvent type
type TNotifyEvent = procedure (Sender: TObject) of object;

The Sender parameter is the object whose event handler is called. For example,.with the OnClick event of a button, the Sender parameter is the button component that is clicked.

и вот такое if sender is TButton then s:=(sender as Tbuttin).caption;

для popup все аналогично. лень икать в справке Tpopup F1

[yuta_86]

не совсем понял (((

procedure TMainForm.PopupMenu2Change(Sender: TObject; Source: TMenuItem;  Rebuild: Boolean);
var s:string;
begin
if sender is TPopupMenu then s:=(sender as TPopupMenu).Items.Caption;
end;

это имели ввиду?

как быть? что делать

[Stilet]

это имели ввиду?

А попробовать? Запусти код.
Единственное что я бы еще попробовал так это другую вариацию:

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

И этот обработчик всем элементам меню назначить.

[yuta_86]

Сообщение от Stilet

А попробовать? Запусти код.
Единственное что я бы еще попробовал так это другую вариацию:

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

И этот обработчик всем элементам меню назначить.

это работает но перед caption появляется &
как его убрать?

Caption:=copy(TMenuItem(sender).Cap tion,2,2); как вариант ?в меню двухзначное число )

в меню двухзначное число )

[Stilet]

Как вариант

Caption:=StringReplace(TMenuItem(sender).Caption,'&','',[]);