Aproveitando a carona do tópico, como faço para filtrar a digitação deste caracteres númericos e um campo Edit?Sem ser através destas funções existe alguma outra propriedade que possa ser propracamada sem ser o CharCase (btNormal, btUpperCase, btLowerCase) ?
[]s 2008/10/7 alessandra porto <[EMAIL PROTECTED]> > > valeu > > --- Em ter, 7/10/08, BandaLemuel <[EMAIL > PROTECTED]<bandalemuel%40yahoo.com.br>> > escreveu: > De: BandaLemuel <[EMAIL PROTECTED] <bandalemuel%40yahoo.com.br>> > Assunto: Re: [delphi-br] tecla identificar ? > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Data: Terça-feira, 7 de Outubro de 2008, 8:56 > > 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: lista-delphi@ yahoogrupos. com.br ; [EMAIL PROTECTED] os.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.Edit2KeyPres s(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] > > > > > > > > > > > > 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] > > > [As partes desta mensagem que não continham texto foram removidas]
