PopupMenu für ein MenuItem

[chaosben]

Das ist ziemlich simpel:

Hier ein Beispiel, das die Caption des MenuItems in die Caption des Formulars schreibt.

Delphi-Quellcode:

procedure WMMENURBUTTONUP(var Message: TMessage); message WM_MENURBUTTONUP;
//...
procedure TForm58.WMMENURBUTTONUP(var Message: TMessage);
begin
  Caption := MainMenu1.FindItem(Message.LParam, fkHandle)[Message.wParam].Caption;
  inherited;
end;