Перехват клавиши Tab формой

[Space]

Подскажите, как перехватить Tab формой?

[zHackLeX]

Если нужно именно ТОЛЬКО когда форма X активна то

Код: Выделить всё


Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
...
If ActiveForm Is X Then
   If GetAsyncKeyState(9) <> 0 Then
       'Здесь попалась клавиша ТАВ
   End If
End If
...


Девятка потому что это код клавиши ТАВ.

[Space]

этот код в таймер ложить или куда?

[zHackLeX]

я например положил в таймер (кроме declare естесно)

[tyomitch]

А не проще контролам выставить TabStop=False, и просто обрабатывать _KeyDown?

[zHackLeX]

у меня не ловится даже если на форме вообще нет контролов

[tyomitch]

А у меня ловится. Что делать?

[Space]

Тёмыч, я понимаю, что ты знаешь. Я где-то читал за эту кнопу Tab, то вроде, если форму настроить на приём Tab, то фокус по контролам не будет перемещаться и наооборот - не помню точно, но что-то вроде этого. Так как же? Неуж-то я должен выставить всем контролам TabStop=False, который к тому же ещё и не у всех контролов имеется? И почему так?

[zHackLeX]

все верно... я ловил на KeyUp.
И, Space, не забудь, что ловить ОТжатие клавиши несколько иначе.

[tyomitch]

Space, потому что если ты хочешь делать по нажатию таба что-то своё, то ты, очевидно, будешь делать это вместо перехода по контролам

Если же тебе нужно делать что-то в добавок к переходу по контролам, просто допиши свой обработчик им в _GotFocus.