Habilitar la tecla Delete en ingreso de Numeros en un TEDIT

[[Héctor Randolph]]

En la unidad Windows.pas puedes ver una lista completa con estos códigos.

Cómo ya te indicaron a la tecla Delete le corresponde la constante VK_DELETE que su valor numérico es 46.

Código Delphi [-]
  { Virtual Keys, Standard Set }
  .
  .
  .
  {$EXTERNALSYM VK_INSERT}
  VK_INSERT = 45;
  {$EXTERNALSYM VK_DELETE}
  VK_DELETE = 46;
  {$EXTERNALSYM VK_HELP}
  VK_HELP = 47;
  .
  .

Estos códigos son los que se utilizan para el evento OnKeyDown y OnKeyUp si lo piensas utilizar en el evento OnKeyPress hazlo como te indica AGAG4 utiliza la función Ord().

Código Delphi [-]
  if Ord(Key)=VK_DELETE then

Saludos

[onlytk]

Gracias por responder, pues si la tecla delete es el #46, ......... pero mejor debi haber empesado por que mis controles TEdit no borran el caracter cuando se presiona DELETE??????.

Pues despues de revisar, estoy utilizando el componente SimpleGraph y en un ActionList tengo definido un item donde borro los nodos seleccionados en el simplegraph, a este item le tengo asociado el ShortCut "Del", entonces esto me esta atrapando el borrado con la tecla delete en mis TEdits, ahora quite el ShurtCut y todo me funciona OK, Gracias a todos por responder.

[roman]

Sólo un comentario: ¿has pensado qué pasa si alguien pega texto en tu control? El portapapeles podrá contener texto con letras. ¿Qué pasa si alguien escribe 45.6...78.9? También tienes que validar que no hay más puntos. Hay controles, como el CurrencyEditor de las bibliotecas RX que se encargan de estos detalles.

// Saludos

[onlytk]

Gracias roman, voy a chequear esos controlores.

Salu2.