Forçar digitação somente de valores usando firemonkey
19/02/2020
0
Preciso de uma função que force a digitação de valores (números) utilizando firemonkey. Com VCL utilizo a função abaixo, que não funciona com firemonkey.
No evento on key press do edit:
if not(key in ['0'..'9',#8,#13]) and not (key in[',']) then
begin
MessageBeep(16);
ShowMessage('Campo numérico!');
key:=#0;
end;
Com firemonkey não existe sequer o evento on key press.
No evento on key press do edit:
if not(key in ['0'..'9',#8,#13]) and not (key in[',']) then
begin
MessageBeep(16);
ShowMessage('Campo numérico!');
key:=#0;
end;
Com firemonkey não existe sequer o evento on key press.
Josafar Silva
Curtir tópico
+ 0
Responder
Posts
26/02/2020
Anderson Gonçalves
Preciso de uma função que force a digitação de valores (números) utilizando firemonkey. Com VCL utilizo a função abaixo, que não funciona com firemonkey.
No evento on key press do edit:
if not(key in ['0'..'9',#8,#13]) and not (key in[',']) then
begin
MessageBeep(16);
ShowMessage('Campo numérico!');
key:=#0;
end;
Com firemonkey não existe sequer o evento on key press.
No evento on key press do edit:
if not(key in ['0'..'9',#8,#13]) and not (key in[',']) then
begin
MessageBeep(16);
ShowMessage('Campo numérico!');
key:=#0;
end;
Com firemonkey não existe sequer o evento on key press.
São valores inteiros? se for porque nao usa um MaskEdit?
Se não for você já ouviu falar na biblioteca de componentes RX?
Procura por RXLIB lá tem um componente chamado CurrencyEdit ele já vem em formato de dinheiro.
Skype: anderson@case13.com.br
Sobre o KeyPress não existir experimente no KeyDown;
Responder
Clique aqui para fazer login e interagir na Comunidade :)