delphi 键盘事件 TAB用不了。。

Posted 2023-05-10

实现代码如下：不知道怎么就不行。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;

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

可以改用其它键(如CTRL\ALT\SHIFT等都行).本回答被提问者和网友采纳 参考技术B 建议你不要加入那些代码，先测试下Tab是否在KeyDown响应，譬如加个提示信息；
如果不响应则要检查你的控件的设置了或则该消息已被其他的截获了； 参考技术C 因为你的程序抢不过系统，系统要用的东西，说了不让给你，你的程序就不能用。 参考技术D 坏了

TabControl delphi

1．TTabControl 组件的典型用法
TTabControl 组件使用起来，根本不会使程序简单化，所以不提倡使用此组件，可以用TPageControl
组件代替。
与多页组件不同的是，虽然Tab 组件上可以有一组按钮，但它们的客户区是公用的，当用户选择
其中某个按钮时，将触发OnChange 事件。在处理OnChange 事件的句柄中，必须自己定义怎样操纵
客户区上的内容。例如，可以用Tab 组件做一个图片管理器，用户选择不同的按钮，Tab 按钮的客户
区就显示不同的内容（用户必须用代码实现）。

 

2．TTabControl 组件的重要属性
TTabControl 组件的主要属性如表6-22 所示。
表6-22 TTabControl 组件的主要属性

下面介绍程序中TTabControl 组件经常用的属性。
（1）Images 属性
在Images 属性中与ImageList 组件关联，可以为每个标签设置一个图标。主要方法是将一个
ImageList 组件中调入n 个图片，然后将TTabControl 组件的Images 属性设置为拥有图片列表的
ImageList 组件，就可以看见TTabControl 组件的标签页上有图标显示。
（2）Multiline 属性
此属性用于设置TTabControl 组件标签按钮的显示位置。True 值表示按钮可以自动分成几行显示；
False 值表示按钮显示在一行，如果一行不能显示全部按钮，则在按钮右侧显示两个可以左右移动标签
按钮的箭头状按钮。
（3）MultiSelect 属性
此属性用于设置TTabControl 组件是否可以选择多个标签按钮。MultiSelect 属性必须与Style 属性
配合使用，当MultiSelect 属性为True 值时，并且Style 属性的取值不为tsTabs 值时，用户在按下Ctrl
键的情况下单击标签按钮时可以选择多个；当MultiSelect 属性为False 值时，不管Style 属性为何值，
只能选择一个标签按钮。
（4）ScrollOpposite 属性
此属性决定用户在单击另一行上的按钮后，前一行移到最下面或上面一行。在Multiline 属性为
False 值时，并且有多行按钮行显示的前提下：True 值将位于当前行下面的所有按钮行移动到最下面；
False 值是将当前选中的按钮行移动到与用户区相临的位置。
（5）Style 属性
改变Styles 属性，可以将标签的显示方式设置为标签方式（tsTabs）、按钮方式（tsButtons）和平
板按钮方式（tsFlatButtons）。
（6）TabIndex 属性
此属性是Tab 组件上的每个按钮的序号，可以用来设置Tab 组件上选中的按钮或获取已经等距的
按钮。
（7）TabPosition 属性
此属性可以设置Tab 组件的标签按钮显示的位置，它有如下4 个选项。
? tpBottom：在Tab 组件的下部显示标签按钮。
? tpLeft：在Tab 组件的左部显示标签按钮。
? tpRight：在Tab 组件的右部显示标签按钮。
? tpTop：在Tab 组件的上部显示标签按钮。
TabPosition 属性的设置可能会与Style 属性的设置产生冲突，在后面的实例中将提到如何解决此
问题。
（8）Tabs 属性
通过修改Tabs 属性，可以手工地添加标签的个数。其中在Tabs 属性的编辑器中，每一行内容可
以形成一个标签页，可以利用一个TStringList 类型的变量对此属性进行设置。