新人求教，有没办法解决这函数限制小数点输入的有关问题

新人求教，有没办法解决这函数限制小数点输入的问题。
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

edit1用了它之后，小数字点不能输入了，请问有没别的函数或能让它输入小数点的 和 - 负号的 谢谢。
[解决办法]
我还是建议你用 TMaskEdit 控件，直接在属性里就能设置，何必那么麻烦
[解决办法]
这样就可以了

procedure TfmReport.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '.', '-', #8]) then
  begin
    Key := #0;
    exit;
  end;
end;