Fórum só digitar numeros em um edit #142328
01/03/2003
0
Amigos
Só quero digitar numeros em uma caixa de texto. Tenho o seguinte código.
if (key in [´0´..´9´]) then
key:= key
else
key:=chr(0);
end;
Isto funciona, o problema que eu quero apagar não consigo, quero apagar usando a tecla BackSapce. Alquém pode me ajudar?
Só quero digitar numeros em uma caixa de texto. Tenho o seguinte código.
if (key in [´0´..´9´]) then
key:= key
else
key:=chr(0);
end;
Isto funciona, o problema que eu quero apagar não consigo, quero apagar usando a tecla BackSapce. Alquém pode me ajudar?
Anonymous
Curtir tópico
+ 0
Responder
Posts
01/03/2003
Adilsond
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [´0´..´9´,#8]) then
begin
MessageBeep(0);
key := 0;
end;
end;
begin
if not (key in [´0´..´9´,#8]) then
begin
MessageBeep(0);
key := 0;
end;
end;
Responder
Gostei + 0
01/03/2003
Carnette
Amigos
Só quero digitar numeros em uma caixa de texto. Tenho o seguinte código.
if (key in [´0´..´9´]) then
key:= key
else
key:=chr(0);
end;
Isto funciona, o problema que eu quero apagar não consigo, quero apagar usando a tecla BackSapce. Alquém pode me ajudar?
if (key in [´0´..´9´]) or (key = VK_BACK) then <<<---pqna mudança
key:= key
else
key:=chr(0);
end;
Responder
Gostei + 0
01/03/2003
Anonymous
agradeço as duas boas almas que ajudou.
Bom carnaval.
Bom carnaval.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)