Also bei mir gehts nicht...
Delphi-Quellcode:
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
ShowMessage(PopupMenu1.PopupComponent.Name+' '+(Sender As TComponent).Name+' '+TToolButton((Sender As TPopupMenu).PopupComponent).Name);
end;
Ich komme nicht an den ToolButton heran, auch der Cast zieht nicht (wie sollte er auch, TToolButton hat ja vererbungstechnisch nix mit TToolBar zu tun).
Gruß, teebee