Страница 1 из 1

Передача фокуса компонентам

СообщениеДобавлено: 25.07.2016 12:32:01
arriah
Здравствуйте,

есть такой вопрос по поводу передачи фокуса контролам.
На форме имеется grid, Tchromium пара едитов, мемо и 4 кнопки.
Мне надо передавать фокус между гридом и хромиумом по кнопке Tab
Если в гриде есть TabOrder, то в хроме он отсутствует.
В идеале было бы с грида по VK_RIGHT передать фокус в браузер (это не трудно сделать), а вот как обратно? В TChromium нет события OnKeyDown, есть только OnKeyEvent - но как мне перехватить нажатие кнопки влево, чтобы отдать фокус гриду?

Re: Передача фокуса компонентам

СообщениеДобавлено: 26.07.2016 17:34:43
arriah
Разобрался с OnKeyEvent, если надо кому, то вот примерно так:

Код: Выделить всё
procedure TForm1.Chromium1KeyEvent(Sender: TObject; const Browser: ICefBrowser;
  const event: PCefKeyEvent; osEvent: TCefEventHandle; out Result: Boolean);
begin
  if (event^.windows_key_code=VK_LEFT) then
  DBGrid1.SetFocus;
end;