我在EDIT的ONKEYPRESS事件下写道:
IF KEY=#13 THEN
SHOWMESSAGE('HELLO WORD!');
运行时在EDIT中输入数据后按回车怎么不显示“HELLO WORD!”对话框。单步运行时却进入BDGRIDEH控件的死循环。望大家能帮我想想办法。十分感谢!!
IF KEY=#13 THEN
SHOWMESSAGE('HELLO WORD!');
运行时在EDIT中输入数据后按回车怎么不显示“HELLO WORD!”对话框。单步运行时却进入BDGRIDEH控件的死循环。望大家能帮我想想办法。十分感谢!!
解决方案 »
- 关于image的一段代码,求助!
- 如何取得远程SQL服务器的所有数据库的名称及下属的表名?
- 用SetwindowPos将一个窗口HWND_TOPMOST之后怎么变成正常(不是最前的)的窗口啊?
- 怎么样使listbox的item处于选中状态
- 如果才能让TdbGrid的一列,当值为非空时显示“注销”,空显示为“使用”,并且只要一输入值,就可转换为“注销”
- 如何将提示变成中文?
- 如果我想获得textfile文件的长度或者行数,那么应该怎么办了
- 字符串转换问题
- HELP,grid 控件?
- 控件要是有别名就好了.
- SOS★★★有争议的问题!如何按一个按钮结束一个死循环或一个需要很长时间才能结束的循环?
- 会用钩子(hook)了,但是不是全局的,请高手指点。
begin
key := #0;
showmessage('HELLO WORD!');
end;
if key=#13 then
begin
key:=#0;
showmessage('HELLO WORD!');
end;
begin
key:=#0;
showmessage('HELLO WORD!');
end;
begin
if key=#13 then
showmessage('OK');
end;
我试了没问题,
可能是BDGRIDEH控件的问题?
改用onkeydown事件
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word);
begin
if key=KV_Return then
showmessage('OK');
end;