Este ejemplo en Delphi muestra el valor ASCII de la tecla pulsada:

unit UnidadMenuPrincipal;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, shellapi, ExtCtrls;

type
  TformMenuPrincipal = class(TForm)
    Label1: TLabel;
    LWEB: TLabel;
    Panel1: TPanel;
    txtASCII: TMemo;
    Button1: TButton;
    bCerrar: TButton;
    dlGuardar: TSaveDialog;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LWEBClick(Sender: TObject);
    procedure bCerrarClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure txtASCIIKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formMenuPrincipal: TformMenuPrincipal;

implementation

{$R *.DFM}

procedure TformMenuPrincipal.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  tecla : string;
begin
  if Key < 127 then
  begin
    case key of
      8 : tecla := 'Borrado izquierda';
      13 : tecla := 'Intro';
      16 : tecla := 'Shift';
      17 : tecla := 'Control';
      18 : tecla := 'Alt';
      19 : tecla := 'Pausa';
      20 : tecla := 'Bloqueo mayúsculas';
      27 : tecla := 'Escape';
      32 : tecla := 'Barra espaciadora';
      33 : tecla := 'Retroceso página';
      34 : tecla := 'Avance página';
      35 : tecla := 'Fin';
      36 : tecla := 'Inicio';
      45 : tecla := 'Insertar';
      46 : tecla := 'Suprimir';
      91 : tecla := 'Inicio (izquierdo)';
      92 : tecla := 'Inicio (derecho)';
      93 : tecla := 'Menú contextual';
    else
      tecla := chr(key);
    end;

    txtASCII.Lines.Add (tecla + ' -> ASCII -> ' + IntToStr(Key));
    Key := 0;
    txtASCII.SetFocus;
  end;

end;

procedure TformMenuPrincipal.LWEBClick(Sender: TObject);
begin
  ShellExecute(Handle, Nil, PChar(LWEB.CAPTION),
      Nil, Nil, SW_SHOWNORMAL);
end;

procedure TformMenuPrincipal.bCerrarClick(Sender: TObject);
begin
  close;
end;

procedure TformMenuPrincipal.Button1Click(Sender: TObject);
begin
  if dlGuardar.Execute then
    txtASCII.Lines.SaveToFile(dlGuardar.FileName);
end;

procedure TformMenuPrincipal.txtASCIIKeyPress(Sender: TObject;
  var Key: Char);
begin
  key := chr(0);
end;

end.

Publicado el: 2006-03-05