validar tedit, que no ingrese '.'

[gonza_619]

hola a todos, bueno mi problemas es como validar un tedti, para que no se ingrese un '.' ni letras en un tedit, mas bien que ingrese ',' y numeros solamente .
gracias a todos de antemano

[gonza_619]

bien y alo sque asi puse:

Código Delphi [-]
//controlar entrada solo números
  if ( StrScan('0123456789.'+chr(7)+chr(8), Key) = nil ) then  Key := #0;
  //cambiar punto decimal por coma
  if key = '.' then key := ',';
  //controlar entrada una sola coma
  for i := 1 to length(EDos.Text) do
    if ( copy(EDos.Text,i,1) = ',' ) and not ( StrScan(',', Key) = nil ) then  Key := #0;

[ecfisa]

Hola gonza.

Una forma puede ser:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, ',' ,'0'..'9']) then
  begin
    Key:= #0;
    MessageBeep(MB_ICONERROR);
  end;
end;

Saludos.