Welcher ToolButton ruft PopupMenu auf?

[Legolas]

@Kroko1999,

hast du das Popup der TToolbar oder dem TToolbutton zugewiesen?

Du weißt jedem TToolbutton dein PopupMenu zu und schreibst folgendes:

Delphi-Quellcode:

var
  Form1: TForm1;
  SenderPopup: TObject;

implementation

{$R *.DFM}

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  SenderPopup:=TPopupMenu(Sender).PopupComponent;
end;

procedure TForm1.Test1Click(Sender: TObject);
begin
  if TToolButton(SenderPopup).Name='ToolButton4' then Label1.Caption:='OK';
end;

Also bei mir funktioniert das 100%ig.

Oder habe ich falsch verstanden was du machen´willst ???