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
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
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
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
4 matches
Mail list logo