Hola amigos, tengo el siguiente codigo, me permite ingresar solo numeros en un TEdit, ahora lo que requiero es liminar un numero de decimales , tambien me gustaria agregar el simbolo de miles en la posicion correcta...
Me ayudan?
procedure TFrmMain.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in [#8, '0'..'9', '-', '.']) then begin Key := #0; end else if ((Key = '.') or (Key = '-')) and (Pos(Key, (Sender as TEdit).Text) > 0) then begin Key := #0; end else if (Key = '-') and ((Sender as TEdit).SelStart <> 0) then begin Key := #0; end; end;