Welcher ToolButton ruft PopupMenu auf?

[teebee]

Habe jetzt in den Tiefen der API-Doku eine Möglichkeit gefunden, die das ganze ziemlich solide macht (ohne Mausposition oder MouseOver).

Delphi-Quellcode:

 type
  TForm1 = class(TForm)
   ...
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    DropButton: Integer;
    Procedure WMNotify(Var Msg: TWMNotify); message WM_NOTIFY;
end;

...

Procedure TForm1.WMNotify(Var Msg: TWMNotify);
Begin
  If Msg.NMHdr^.code=TBN_DROPDOWN Then
    DropButton := PNMTOOLBAR(Msg.NMHdr)^.iItem;
  inherited;
End;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  ShowMessage('Gedrückt von: '+ToolBar1.Buttons[DropButton].Name); // hier wahlweise auch Tag-Auswertung :-)
end;

Gruß, teebee