S sakura12 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-06 #1 怎样判断是否按下了“TAB”键，有没有办法让它失效？能否详细告知，谢谢。
F firecar Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-06 #2 在Form的onkeydown里面判断，if key ＝ VK_TAB then key ＝ 你想要的。
D dhl2001 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-06 #3 form 的keypreview:=true; onkeydown 事件中写 ;if key=vk_tab then ; postmessage(handle,wm_keydown,0,0);
S sakura12 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-07 #4 回DHL2001：我试过了上面的代码，好像没有用啊.
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-07 #5 注意： Tab键是作为组合键来使用的！ procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; ; Shift: TShiftState); begin ; if (Key=VK_TAB) and (SSCtrl in Shift) then ; ; ShowMessage('asdf'); end;
注意： Tab键是作为组合键来使用的！ procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; ; Shift: TShiftState); begin ; if (Key=VK_TAB) and (SSCtrl in Shift) then ; ; ShowMessage('asdf'); end;
S sakura12 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-07 #6 回卷起千堆雪tyn兄： ; ;谢谢你给我的不少帮助，我试过了你给我的代码，作为组合键，的确可以屏蔽。 但是，如果想单独使TAB键失效是没有用的。我的程序是：建立一个form，在上面放置 四个button，我只想用鼠标点击四个不同的按钮，而不是用TAB键在四个按钮中来回切换， 不知道你明白我的意思吗？是不是要用到你们常说的钩子函数？我对这个不懂的， 能教教我吗？
回卷起千堆雪tyn兄： ; ;谢谢你给我的不少帮助，我试过了你给我的代码，作为组合键，的确可以屏蔽。 但是，如果想单独使TAB键失效是没有用的。我的程序是：建立一个form，在上面放置 四个button，我只想用鼠标点击四个不同的按钮，而不是用TAB键在四个按钮中来回切换， 不知道你明白我的意思吗？是不是要用到你们常说的钩子函数？我对这个不懂的， 能教教我吗？
