duvida no onkepress

Delphi

21/08/2010

estou tentando fazer uma verificação tipo se o kra colocar alguma coisa q nao seja numero ele da a mensagem de erro limpa o campo e coloca o foco nele.. e quero q se o kra aperter enter,tab tanto faz.. estou usando o codigo abaixo.. ele ta dando a mensagem certa.. so q nao ta limpando o campo. o q q pode ser?
procedure TFCadUsu.EIdUsuKeyPress(Sender: TObject; var Key: Char);beginif not( key in['0'..'9',#38,#13] ) then begin   EIdUsu.Clear;   EidUsu.SetFocus;   ShowMessage('Favor Insira Apenas Números'); end;end;

 
Fabio Sanches

Fabio Sanches

Curtidas 0

Respostas

Eriley Barbosa

Eriley Barbosa

21/08/2010


procedure TFCadUsu.EIdUsuKeyPress(Sender: TObject; var Key: Char);
begin
if not( key in['0'..'9',#38,#13] ) then
 begin
   Key:= #0;
   ShowMessage('Favor Insira Apenas Números');
 end;
end;

GOSTEI 0
Fabio Sanches

Fabio Sanches

21/08/2010


  100% mto obrigado.
GOSTEI 0
POSTAR