Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

secua

Usar o "ponto" do teclado numérico como separador decimal

Recommended Posts

secua

Agradeço a vossa ajuda na seguinte questão?

Uso uma DBGrid para lançamentos de dados.

De forma a agilizar o processo quero poder lançar valores numerários usando apenas o teclado numérico, e para isso, necessito que o programa aceite o uso do “ponto” no teclado numérico como separador decimal.

Quero que quando carregue no “ponto” to teclado numérico o sistema “veja” uma vírgula.

Como posso fazer isto ?

Obrigado p'la ajuda!

Share this post


Link to post
Share on other sites
secua

Já resolvi o meu problema.. obrigado na mesma.

Edited by secua

Share this post


Link to post
Share on other sites
secua

Bom dia,

Claro que partilho.

Apanha o código da tecla "." e passa para ",".

Não sei se foi a maneira mais correcta mas foi a única simples e está a resultar. Desta forma, os utilizadores usam o teclado numérico, nomeadamente o ponto para separar ar casas decimais, o programa lê e transforma o mesmo em virgula.

procedure Tfrmmov.DBgridlinhasmovKeyPress(Sender: TObject; var Key: Char);
begin
   if (Key = #46) then Key := ',';

Share this post


Link to post
Share on other sites
pwseo

Podes sempre interceptar tanto a vírgula como o ponto e em vez de manualmente fazeres Key := ',', podes obter o valor DecimalSeparator de um objecto TFormatSettings.

Desta forma estarás a fazer com que o teu programa funcione de acordo com as definições locais (que podem ter o ponto ou a vírgula como separador decimal).

  • Vote 2

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.