＋设为首页 ＋添加到收藏夹
我用SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle,GWL_STYLE) or ES_NUMBER);
这个函数限制EDIT 只能输入数字，但现在发现，效果是达到了，但是无法输入小数点了。就是我想输入0.003，确只能写成0003，小数点无法输入，怎么办啊？？
急！！
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [0..9,.]) then key:=#0;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [0..9,.,#13,#8]) then key:=#0;
end;
if not (key in [0..9,.]) then key:=#0;
