DBGRIDEH 数值显示

[奔雷手]

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

[wo237285809]

路过 看下

[奔雷手]

晕。

我的是D6

[奔雷手]

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

[waiwaiguaiguai]

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

[奔雷手]

求 详解。

[jinbajie]

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;

[奔雷手]

[Quote=引用 6 楼 jinbajie 的回复:]
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;
[/Quote]OK