Re: [delphi-br] mask no edit.text

2009-12-04 Por tôpico Jefferson Eduardo
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

[delphi-br] mask no edit.text

2009-12-03 Por tôpico Jefferson Eduardo
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

Re: [delphi-br] mask no edit.text

2009-12-03 Por tôpico CRM Desenvolvimentos
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

Re: [delphi-br] mask no edit.text

2009-12-03 Por tôpico Diego Garcia
Usa algo do tipo if not (key in['/','+','-','*']) then key := #0; no evento KeyPress *Diego Garcia* Twitter: http://www.twitter.com/drgarcia1986 Blog:http://www.atocadopanda.com 2009/12/3 Jefferson Eduardo je.del...@yahoo.com.br Prezados, boa tarde! Como faço para que o meu