if not ( key in ['0'..'9',#8,#13,',','.' ) then
Ai ele aceita ponto e virgula....
Wesley
From: alessandra porto
Sent: Tuesday, October 07, 2008 8:26 AM
To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br
Subject: [delphi-br] tecla identificar ?
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]
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3499 (20081007) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
