KeyDown no Delphi 7 VCL

15/12/2003

2

eu estou tendo problemas para não permitir que digitem letras num edit,para que ele seja um edit q vai servir para que o usuário entre com um valor.
eu tinha feito num programa em delphi 7 CLx o seguinte comando no evento onkeydown do edit

if key<48 or key>57 then
key := 16

isso fazia com q se nao fosse digitado numero ele enviasse 16 que eh a tecla shift.
O problema eh q ele entra no If porem mesmo assim aparece letra no edit,como se o texto fosse alterado antes de sair do evento onkeydown
preciso de ajuda urgentemente,obrigado


Responder

Posts

15/12/2003

Beppe

Para cancelar o envio de um caractere ao controle você usa o OnKeyPress. Mas invés de shift geramente se usa null.

if not (Key in [´0´..´9´, ´,´]) then
  Key := 0;


Retire a vírgula se não fração.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira