Fórum como aceitar valores na faixa de 0 a 5 no MaskEdit? #363633
09/09/2008
0
ex.: o usuário digitou no MasKEdit o valor [b:13f294e611]6[/b:13f294e611], então, o sistema recusa o caracter, os valores permitidos são: 1,2,3,4 e 5.
+/- parecido quando você tem está mascará [b:13f294e611]999999;[/b:13f294e611] e o usuário tenta digitar no MaskEdit letras, ele não vai conseguir!
isso é possivel? qual mascará que devo utilizar?
Obrigado!
Pestana_
Curtir tópico
+ 0Posts
09/09/2008
Rodrigo_koga
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key <> ´1´) and (Key <> ´2´) and (Key <> ´3´) and (Key <> ´4´) and (Key <> ´5´) then
abort;
end;
Gostei + 0
09/09/2008
Wdrocha
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Not (Key In [´0´..´5´]) then //If não estiver entre 0 e 5 então executará o Abort abort; end;
Espero ter ajudado....
Qualquer coisa....posta aew...
Flw
Gostei + 0
09/09/2008
Pestana_
o que eu estou querendo é definir qual a mascará correta a ser aplicada no MaskEdit.
ex.: tenho está mascará [b:26a87ff451]999999;0;_[/b:26a87ff451] na propriedade [i:26a87ff451]editMask[/i:26a87ff451].
com está mascará o usuário pode digitar valores numericos (0..9), mas não é muito bem isso que eu quero. O que eu estou querendo é limitar o valor do primeiro caracterer (posição) da mascará.
supondo que o usuario digite este valor: 575467.
agora se o usuario tentar digitar este valor: 786759 não é permitido porque o primeiro caracter que o usuário digitou é maior do que 5.
como devo definir está limitação na propria mascará? se é que isso é possível!
Obrigado!
Gostei + 0
09/09/2008
Marco Salles
procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char); begin if ((Key In [´6´..´9´]))and(Maskedit1.SelStart=0) then //If não estiver entre 0 e 5 então executará o Abort abort; end;
Gostei + 0
10/09/2008
Pestana_
vou fazer desta maneira como foi sugerido!
valeu. :D
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)