só digitar numeros em um edit
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
Curtidas 0
Respostas
Adilsond
01/03/2003
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;
GOSTEI 0
Carnette
01/03/2003
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;
GOSTEI 0
Anonymous
01/03/2003
agradeço as duas boas almas que ajudou.
Bom carnaval.
Bom carnaval.
GOSTEI 0