cual le corresponde a cual?

[jam888]

Ayer mande un nuevo hilo y nadie me supo contestar,pero la solucion parece ser sencilla a simple vista, lo que quiero hacer es lo siguiente.
En este procedimiento quiero hacer lo siguiente
procedure TForm1.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
case key of
#8 :se showmessage('se presiono backspace');
#27 :se showmessage('se presiono escape');
#13:se showmessage('se presiono enter');
.
.
.
.
y asi seguir con varias teclas mas

end;
end;
yo se que existen codigos virtuales de teclas(vk_enter)pero estos no me sirven, yo nesecito saber cual es el codigo de la ->,<-,de la tecla delete ,en realidad de todasd las teclas para un futuro,por que las teclas virtuales no me sirven.
El hilo anterior que mande ayer es Cual le corresponde a cual ? por si quieren chequearlo.

[Pablo Carlos]

Hola. busca en el histórico del foro. hace poco mande bastantes.

Saludos

[taita]

Hola. Por lo que veo lo que deseas es utilizar el valor generado por cada tecla al ser pulsada para reconocerlas. He visto por ahi en algún lado (perdona si no te digo donde, pero es que no me acuerdo) las tablas de códigos de cada tecla.
Para obtener sus valores una solución seria que hicieras algo asi para saber cual es el valor original de cada tecla:

- Revisa el teclado para ver si se ha pulsado una tecla.
- Si se ha pulsado una: toma su valor e imprimelo en un label.

Asi obtendrás el valor numérico de cada tecla.

Es lo único que se me ocurre, pero sé que si buscas por aqui en el foro algo encontrarás.
Saludos

[senpiterno]

Pruba esto:

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
      VK_BACK  :showmessage('se presiono backspace, que tiene el codigo de tecla ' + IntTostr(VK_BACK));
      VK_ESCAPE  :showmessage('se presiono escape, que tiene el codigo de tecla ' + IntTostr(VK_ESCAPE));
      VK_RETURN : showmessage('se presiono enter, que tiene el codigo de tecla ' + IntTostr(VK_RETURN));
      VK_LEFT : showmessage('se presiono <-, que tiene el codigo de tecla ' + IntTostr(VK_LEFT));
      VK_RIGHT : showmessage('se presiono ->, que tiene el codigo de tecla ' + IntTostr(VK_RIGHT));
      VK_UP  : showmessage('se presiono la tecla de dirección arriba, que tiene el codigo de tecla ' + IntTostr(VK_UP));
      VK_DOWN   : showmessage('se presiono la tecla de dirección abajo, que tiene el codigo de tecla ' + IntTostr(VK_DOWN));
      //y asi sucesivamente con todas las teclas que quieras
      //los codigos virtuales son constantes que almacenan el valor
      //que referencia la tecla citada, en este caso de tipo integer
      //enter=13.....
 end;
 key:=0;//si no quieres que se imprima el caracter en el edit

end;

Saludos