TTntPopupMenu.popupcomponent.name immer leer?

[dataspider]

und du benutzt das Ereignis onPopUp?

Also:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  MessageDlg(TPopupMenu(Sender).PopupComponent.ClassName, mtWarning, [mbOK], 0);
end;

liefert bei mit TEdit (allerdings TPopupMenu).

Frank