Desabilitar as teclas , e .
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
Curtidas 0
Respostas
Bampavao
10/10/2003
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);
GOSTEI 0
Headfox
10/10/2003
Muito obrigado meu amigo!
Eddie.
Eddie.
GOSTEI 0
Bampavao
10/10/2003
De nada, precisando estamos aí.
Pavão.
Pavão.
GOSTEI 0