delphi dbgrideh 单元格只能输入数字和一个小数点？

delphi dbgrideh 单元格只能输入数字和一个小数点？

if (Pos('.', dbgrdh1.DataSource.DataSet.FieldByName('DJ').AsString) > 0) then
Key := #0;

    使用这句没用啊，有没有老师经历过麻烦告知哦！

已经解决了，和EDIT里判断是一样的，判断选中当前的单元格就行了。

dbgrdh1.DataSource.DataSet.FieldByName('DJ').AsString
这个取的是数据源的数据中是否有小数点，而不是当前输入的。当然没用

//保留2位小数
DisplayFormat := '#0.00';
北瓜网www.beiguaw.com