Fórum Capturar BackSpace no OnkKeyPress #342101
21/05/2007
0
Preciso fazer o seguinte: num edit permitir que seja digitadas apenas as teclas de números e a tacla BackSpace.
Faço o seguinte no evento OnKeyPress do componente:
begin
if key in [´0´..´9´] then
else
abort;
end;
Isso impede que caracteres alfa seja digitados. Porém, também impede que o BackSpace funcione.
Acredito que, para que o BackSpace funcionasse, seria necessário verificar a tecla pressionado e, se tiver sido ele, liberar.
O problema é: como conferir isso?
Obs.: tem que ser no OnKeyPress. No OnKeyDown eu consigo verificar se o BackuSpace foi pressionado, mas aí não serve para minha rotina.
Obrigado
Faço o seguinte no evento OnKeyPress do componente:
begin
if key in [´0´..´9´] then
else
abort;
end;
Isso impede que caracteres alfa seja digitados. Porém, também impede que o BackSpace funcione.
Acredito que, para que o BackSpace funcionasse, seria necessário verificar a tecla pressionado e, se tiver sido ele, liberar.
O problema é: como conferir isso?
Obs.: tem que ser no OnKeyPress. No OnKeyDown eu consigo verificar se o BackuSpace foi pressionado, mas aí não serve para minha rotina.
Obrigado
Armindo
Curtir tópico
+ 0
Responder
Posts
21/05/2007
Armindo
Obrigado, já descobri.
if key = #8 then
ShowMessage(´pressionou BackSpace).
if key = #8 then
ShowMessage(´pressionou BackSpace).
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)