No Parese Pero Es Muy Dificil O No?
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.
|