• Sábado 14 de Diciembre de 2024, 17:37

Autor Tema:  Capturar la tecla suprimir  (Leído 3109 veces)

Siddhartha

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Capturar la tecla suprimir
« en: Domingo 4 de Enero de 2009, 00:41 »
0
Hola a todos, estoy haciendo un programa que cuando el usuario presiona la tecla suprimir en un ListBox se ejecute algo, use el evento OnKeyPress asi:


Código: Text
  1.         
  2. void __fastcall TfrmIdioma::lstIdiomasKeyPress(TObject *Sender, char &Key)
  3. {
  4.  
  5.         if(Key == VK_DELETE)
  6.         {
  7.  
  8.         }
  9. }
  10.  
  11.  

Pero no la captura, tb intete hacerlo de esta manera:

Código: Text
  1.  
  2. void __fastcall TfrmIdioma::lstIdiomasKeyPress(TObject *Sender, char &Key)
  3. {
  4.         if(GetAsyncKeyState(VK_DELETE))
  5.         {
  6.          ShowMessage("");
  7.         }
  8.  
  9. }
  10.  
  11.  

pero igual no la captura, no se si este comentiendo un error de constante (VK_DELETE)

Espero me puedan ayudar,

Gracias.

rtmex

  • Nuevo Miembro
  • *
  • Mensajes: 5
  • Nacionalidad: mx
    • Ver Perfil
Re: Capturar la tecla suprimir
« Respuesta #1 en: Jueves 15 de Enero de 2009, 00:08 »
0
Debes ponerlo en el evento OnKeyDown

Código: Text
  1.  
  2. void __fastcall TForm1::ListBox1KeyDown(TObject *Sender, WORD &Key,
  3.       TShiftState Shift)
  4. {
  5. if (Key == VK_DELETE)
  6.      ShowMessage("OK");
  7. }
  8.  
  9.