Fórum duvida no onkepress #384203
21/08/2010
0
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
Curtir tópico
+ 0
Responder
Posts
21/08/2010
Eriley Barbosa
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;
Responder
Gostei + 0
21/08/2010
Fabio Sanches
100% mto obrigado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)