Fórum Desabilitar as teclas , e . #187837
10/10/2003
0
Pessoal como que poderia desabilitar em uma edit.text a digitação da porto (.) e virgula (,)...?
Já tentei isso e nada!!!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key =#44) or (key = 46) then
key:=95;
end;
Por favor uma luz ai!!!
Tks.....
Já tentei isso e nada!!!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key =#44) or (key = 46) then
key:=95;
end;
Por favor uma luz ai!!!
Tks.....
Headfox
Curtir tópico
+ 0
Responder
Posts
10/10/2003
Bampavao
TENTE ASSIM
if (Key=Chr(46)) or (Key=Chr(44)) Then Key := Chr(0);
if (Key=Chr(46)) or (Key=Chr(44)) Then Key := Chr(0);
Responder
Gostei + 0
10/10/2003
Headfox
Muito obrigado meu amigo!
Eddie.
Eddie.
Responder
Gostei + 0
10/10/2003
Bampavao
De nada, precisando estamos aí.
Pavão.
Pavão.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)