S shyj Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-08 #1 我只能在RichEdit的键盘事件得到。 可我想在TEdit等组件中得到。 TAB键较特殊。
J jun Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-17 #2 在onKeyDown事件中 if Key = VK_TAB then begin ............ end; 或 if Key = 9 then begin ............ end;
F fan_7 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-17 #4 不行啊！！ procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_TAB then Showmessage('Ok'); end; 没有用！
不行啊！！ procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_TAB then Showmessage('Ok'); end; 没有用！
K Kill Night Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-17 #5 TAB是系统按键，可能需要先屏蔽，直接使用是不行的；你查一下，可能有相关问题。
T Tab Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-17 #6 同情，这个问题我也没搞定 另，有谁知道怎样发送一个TAB键事件。 呵呵，这个TAB是不是我？（：。。。。。
J jun Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-18 #7 如果你在form内不用TAB，可把所有的Tabstop=false 再用KeyUp procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_tab then Showmessage('Ok'); end; 另外你可以用 Hook （钩子）
如果你在form内不用TAB，可把所有的Tabstop=false 再用KeyUp procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_tab then Showmessage('Ok'); end; 另外你可以用 Hook （钩子）
