在DbGrid中某列为下拉框，如何限制用户只能选择，不能输入？40分。

[forgot2000]

在DBGrid中对某列Column的ButtonStyle设置为CbsAuto，并赋予PickList，让用户可以进行选择，但同时用户可以自行输入数据，但程序中不允许用户进行输入，应该怎么办？

[forgot2000]

谢谢zcheny()的回答,但还有个问题，为什么最后赋值为Key:=#0呢？我在KeyPress事件中写入如下代码：Showmessage(inttostr(ord(key)));当按下回车键时Key=#0，为什么不是#13呢？（当然，这时DbGrid的ReturnAsTab属性设为True,如果设为False则程序没反应）。

[wangxd1976]

在DBGrid的OnKeyPress中写
if dbgrid1.selectedIndex=dbgrid1.colomns[i].index then//i为PickList所在Column序号
if key<>#13 then abort;

[zcheny]

响应DBGrid的OnKeyPress事件，应该这样写：

if TDBGrid(Sender).SelectedIndex = cYourColIndex then
case Word(Key) of
VK_RETURN, VK_UP, VK_DOWN, VK_INSERT, VK_LEFT, VK_RIGHT:
Exit;
else
Key := #0;
end;

[forgot2000]

关注

[Ask100]

guanzhu

[项目花园范德彪]

人家答得很好啦

[脉达老黄]

关注