Duvida no Edit

Question

Sou novato em Delphi e gostaria de saber como configurar o Edit para receber somente numeros com ponto flutuante.Muito ObribadoLDionysio...

Cebikyn · Answer

Ponha no [b:d5e7fa4989]OnKeyPress[/b:d5e7fa4989] do seu edit:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key in [�,�,�.�] then
    Key:=DecimalSeparator;

  if not (key in [�0�..�9�,DecimalSeparator,8]) then
  begin
    Key:=0;
    Beep;
  end;
end;

Henry · Answer

Deus do vinho, tente assim:Coloque um objeto Edit no form e no seu evento OnKeypress escreva o seguinte c�digo: if not(key in [�0�..�9�,�.�,�,�,#8,13]) then key := 0; if key in [�,�,�.�] then key := DecimalSeparator; if key = DecimalSeparator then if pos(key,TEdit(Sender).Text) <> 0 then key := 0; Explicando o c�digoif not(key in [�0�..�9�,�.�,�,�,8,13]) then key := 0;No c�digo acima, se algum n�mero, ponto, v�rgula, BackSpace ou Enter for digitado, ent�o pode passar normalmente, caso contr�rio a tecla pressionada � ignorada.if key in [�,�,�.�] then,br> key := DecimalSeparator;No c�digo acima, se digitado ponto ou v�rgula, assume como separador decimal.if key = DecimalSeparator thenif pos(key,TEdit(Sender).Text) <> 0 then key := 0;No c�digo acima, o separador decimal s� pode ser digitado uma �nica vez, na tentativa de uma segunda digita��o ignora-se o s�mbolo. Espero ter ajudado, Henry....

F�rum Duvida no Edit #184648