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;
function TPopupMenu.IsShortCut(var Msg: TWMKey): Boolean;
begin
DelKeyPressed := Msg.CharCode = VK_DELETE;
inherited IsShortcut(Msg);
end;
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if DelKeyPressed then
ShowMessage('Presiono la tecla Delete');
end;
Saludos