DBGRIDEH 数值显示

Question

我想实现在DBGRIDEH中某列输入的数字不能为 负数，不能为字母。
就类似于 在EDIT1中限制输入Key in['0'..'9','-',#13,#8] 
是该控件有这个功能还是 需要什么函数

Answer 1

因为不想 在POST的时候判断跳出个 提示来。

Answer 2

你可以在OnKeypress事件里面，写入Key in['0'..'9','-',#13,#8]，但要指定列。

Answer 3

procedure Tfrm.dbgrdhKeyPress(Sender: TObject;
  var Key: Char);
begin
  with dbgrdh.Columns[1] do
  begin
    if Key in['0'..'9','-',#13,#8] then
    begin
      Key:=#32;
    end;
  end;
end;