Era examente oque eu precisava. Pessoal muito obrigado!
--- Em qui, 3/12/09, CRM Desenvolvimentos <crmdesenvolvimen...@gmail.com> escreveu: De: CRM Desenvolvimentos <crmdesenvolvimen...@gmail.com> Assunto: Re: [delphi-br] mask no edit.text Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 3 de Dezembro de 2009, 19:30 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If not( key in['+','-','*','/',#08] ) then begin beep; key:=#0; end; end; 2009/12/3 Jefferson Eduardo <je.del...@yahoo.com.br> > > > Prezados, boa tarde! > > Como faço para que o meu componente edit1.text, aceite somente operadores > matematicos + - / * quando o usario digitar? > > att. > > Jefferson > > __________________________________________________________ > Veja quais são os assuntos do momento no Yahoo! +Buscados > http://br.maisbuscados.yahoo.com > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> ____________________________________________________________________________________ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]