Tema: intro
Ver Mensaje Individual
  #2  
Antiguo 21-01-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Hasta donde sé esto no lo puedes detectar con los eventos normales de Delphi. Tienes que interceptar directamente el mensaje WM_KEYDOWN en tu formulario:

Código Delphi [-]
interface

type
  TForm1 = class(TForm)
  private
    procedure WMKeyDown(var Msg: TWMKeyDown); message WM_KEYDOWN;
  end;

implementation

procedure TForm1.WMKeyDown(var Msg: TWMKeyDown);
begin
  if (Msg.CharCode = VK_RETURN) and (Msg.KeyData and $1000000 <> 0) then
    ShowMessage('Keypad Enter'); 
end;

end.

// Saludos
Responder Con Cita