我用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;