Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #10  
Antiguo 06-10-2004
senpiterno senpiterno is offline
Miembro
 
Registrado: abr 2004
Posts: 112
Poder: 23
senpiterno Va por buen camino
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
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 03:24:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi