Backspace e So Numeros no Edit1.text

Delphi

06/01/2004

Ai galera, to apanhando dessa bobagem ai,

Coloquei no meu edit1.text no evento onkeypress isto.

if key#32 then
showmessage(´Meu Aviso´);
edit1.clear. So que ele não limpa fica o espaço que dei quando apertei o BackSpace.

e a outra dúvida , como faço para esse meu edit aceitar so numeros.

Agradeço a atenção de todos.


Uoquisala

Uoquisala

Curtidas 0

Respostas

Deus

Deus

06/01/2004

Bem, o backspace não é [b:b9434882f8]#32[/b:b9434882f8], e sim [b:b9434882f8]8[/b:b9434882f8]. Para que só entrem números, o [i:b9434882f8]OnKeyPress[/i:b9434882f8] deveria ser

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


Enfim. Isso já foi respondi acho que [i:b9434882f8]milhares[/i:b9434882f8] de vezes no Form. A questão não é se é elementar ou não, mas se já foi abordado centenas de vezes ou não. Sugiro que, da próxima vez, você faça uma busca antes de perguntar.

Abraços, dEUS.


GOSTEI 0
POSTAR