Снять фокус с элемента

[Vanta11a]

Приветствую.

Имеется: форма, на которой расположены TImage и TScrollBar.
TScrollBar единственный enabled-компонент.

Проблема: после его использования фокус остается на нем, и, соответственно, он перехватывает нажатия на курсорные клавиши.

Задача: снять с него фокус, в идеале перекинув его на форму в целом.

Пробовал:

  SintForm.SetFocus;

  SelectNext(ScrollBar1,true,false);

Эффект нулевой.

[Аватар]

ActiveControl:=nil; не подходит?

[Vanta11a]

Практически то, что нужно, однако вылезла проблема с попаданием скролла в фокус при длительном зажимании кнопки. Это победимо?

[min@y™]

Проблема: после его использования фокус остается на нем, и, соответственно, он перехватывает нажатия на курсорные клавиши.

А как там на счёт KeyPreview у формы?

[Vanta11a]

А как там на счёт KeyPreview у формы?

Установлено в False

[min@y™]

Присвой true. Отпадёт вот это:

Проблема: после его использования фокус остается на нем, и, соответственно, он перехватывает нажатия на курсорные клавиши.

[Vanta11a]

min@y™, не отпало. Как я понял, KeyPreview работает для события OnKeyPress. А нажатие стрелок обрабатывается в OnKeyDown.

Сделал костыльно:

procedure TSintForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//Какая-то обработка
  Key := VK_SPACE;
end;

Фокус на скролл так и перескакивает, зато скролл не бегает.

[min@y™]

Ты прав.
If KeyPreview is true, keyboard events occur on the form before they occur on the active control. (The active control is specified by the ActiveControl property.)

If KeyPreview is false, keyboard events occur only on the active control.

Navigation keys (Tab, BackTab, the arrow keys, and so on) are unaffected by KeyPreview because they do not generate keyboard events. Similarly, when a button has focus or when its Default property is true, the Enter key is unaffected by KeyPreview because it does not generate a keyboard events.
Сорри.