Как узнать, к какому объекту обращается TPopurMenu

Здравствуйте. Можно ли как-нибудь узнать, по какому обьекту (в данном случае это TSpeedButton) кликнули ПКМ и вывели PopurMenu? Проблема заключается в том, что на форме много кнопок и заранее неизвестно их имя. Заранее спасибо.
3 ответа

Свойство TPopupMenu.PopupComponent


БелАмор, А как нужно использовать это св-во? Например процедура OnClick:
procedure TForm1.N1Click(Sender: TObject);begin //здесь нужно узнать, по какому объекту кликнули ПКМ.  end;


А как нужно использовать это св-во?
Например, так:
procedure TForm1.N1Click(Sender: TObject);begin  with PopupMenu1 do  begin    ShowMessage(Format(      'Меню было вызвано для компонента:'#13#10 +      'Class: %s'#13#10 +      'Name:  %s',      [PopupComponent.ClassName, PopupComponent.Name]));  end;end;
При необходимости  можно проверять тип PopupComponent или приводить его к нужному типу.Добавлено через 10 минут и 21 секундуНапример, вставка текста в соответстующий TEdit:
procedure TForm1.N2Click(Sender: TObject);begin  if PopupMenu1.PopupComponent is TEdit then    TEdit(PopupMenu1.PopupComponent).Text := 'Текст вставлен через меню';end;