Question

delphi 键盘事件 TAB用不了。。

实现代码如下：不知道怎么就不行。16回车通过。
procedure TForm1.DEshaddrKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=9 then
begin
shuoTable.Insert;
shuoTable.FieldByName('shname').AsString:=DEshname.Text;
shuoTable.FieldByName('shtel').AsString:=DEshtel.Text;
shuoTable.FieldByName('shaddr').AsString:=DEshaddr.Text;
shuoTable.Post;
DEtips.SetFocus;
end;
end;

Answer 1

由于TAB键已经被系统作为控件聚焦(FOCUS)切换用(即当按下TAB时系统自动将焦点转移到下一个控件),所以程序无法截取按下TAB键的事件.

可以改用其它键(如CTRL\ALT\SHIFT等都行).

Answer 2

建议你不要加入那些代码，先测试下Tab是否在KeyDown响应，譬如加个提示信息；
如果不响应则要检查你的控件的设置了或则该消息已被其他的截获了；

Answer 3

因为你的程序抢不过系统，系统要用的东西，说了不让给你，你的程序就不能用。

Answer 4

坏了