KeyDown no Delphi 7 VCL
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
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
Baobape
Curtidas 0
Respostas
Beppe
15/12/2003
Para cancelar o envio de um caractere ao controle você usa o OnKeyPress. Mas invés de shift geramente se usa null.
Retire a vírgula se não fração.
if not (Key in [´0´..´9´, ´,´]) then Key := 0;
Retire a vírgula se não fração.
GOSTEI 0