TMenu - Rechtsklick auf Menüeintrag erkennen

[bitsetter]

Moin,

eventuell wäre die Nachricht WM_MENURBUTTONUP dafür interessant.

Delphi-Quellcode:

   
  private 
    procedure WMMENURBUTTONUP(var msg: TMessage); message WM_MENURBUTTONUP;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMENURBUTTONUP(var msg: TMessage);
begin
   Showmessage(inttostr(msg.WParam));
end;