Tecla que llamó al PopupMenu

[ecfisa]

Hola gluglú.

Disculpas aceptadas

No entiendo del todo a donde apunta el capturar la tecla, pero fíjate si esta forma de capturar la tecla Del/Supr te sirve:

Código Delphi [-]
...
type
  TPopupMenu = class(Menus.TpopupMenu)
  protected
    function IsShortCut(var Msg: TWMKey): Boolean; override;
  end;

  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
  ...

implementation

var
  DelKeyPressed : Boolean;

{ TPopupMenu }
function TPopupMenu.IsShortCut(var Msg: TWMKey): Boolean;
begin
  DelKeyPressed := Msg.CharCode = VK_DELETE;
  inherited IsShortcut(Msg);
end;

// Ejemplo, capturar Del en OnPopup
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
   if DelKeyPressed then
    ShowMessage('Presiono la tecla Delete');
end;

Saludos