obrigar digitação de números.
Boa Noite, utilizo isso no keypress para o usuário digitar somente números.
if key in [´0´..´9´,#8] then
key := key
else
key := 0;
Tem alguma solução melhor que essa ?
Ou criar alguma função com key...
Obrigado
if key in [´0´..´9´,#8] then
key := key
else
key := 0;
Tem alguma solução melhor que essa ?
Ou criar alguma função com key...
Obrigado
Lynx
Curtidas 0
Respostas
Sparch
24/07/2005
Tem um pacote de componentes chamados PBEdit em http://bak-o-soft.dk/Default.asp?Page=PBEditPack
funciona normalmente no Delphi 7 tem um componente que só permite informar números.
funciona normalmente no Delphi 7 tem um componente que só permite informar números.
GOSTEI 0
Lynx
24/07/2005
não posso usar componentes de 3, porque quando eu mudar para o 2005 vai dar pepino 8)
GOSTEI 0
Rjun
24/07/2005
No fundo, toda solução será igual a sua. O que você pode fazer é criar um componente para usar toda vez que você quiser um edit numérico em vez de digitar esse código em cada edit.
GOSTEI 0
Guilherme
24/07/2005
cara so q se vc copiar uma texto com CTRL + C e colar no edit cola normal intao vc tem q adicionar isso
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbright then
showmessage(´ixe cara nen da nao !!!´)
end;
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbright then
showmessage(´ixe cara nen da nao !!!´)
end;
GOSTEI 0