obrigar digita��o de n�meros.

Question

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

Sparch · Answer

Tem um pacote de componentes chamados PBEdit em //bak-o-soft.dk/Default.asp?Page=PBEditPackfunciona normalmente no Delphi 7 tem um componente que s� permite informar n�meros....

Lynx · Answer

n�o posso usar componentes de 3, porque quando eu mudar para o 2005 vai dar pepino 8)...

Rjun · Answer

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....

Guilherme · Answer

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;

F�rum obrigar digita��o de n�meros. #289300