fiz assim
mas tentei colocar (ponto) e a (virgula)
#190 ,#188 mas da erro não identifica certo
como posso fazer isso de forma a aceitar somente numeros e ponto
agradeço a ajuda
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,#13]) then
begin
showmessage(''+DM.Usuario+''+ #13 + #13 +'Este Campo Aceita Somente
Números');
key :=#0;
end;
end;
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
