Как установить фокус окна браузера TChromium в DCEF 3?
2 ответа
Решение
Спасибо за TLama
function CefWndProc(Wnd: HWND; message: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;
begin
case message of
WM_SETFOCUS:
begin
if brows <> nil then
PostMessage(brows.Host.WindowHandle, WM_SETFOCUS, wParam, 0);
Result := 0;
end;
//...
else
result := DefWindowProc(Wnd, message, wParam, lParam);
end;
end;
//MyChromium.Browser.Host.SetFocus(true);
procedure TWinControl.SetFocus;
TCustomChromium = class(TWinControl, IChromiumEvents)
TChromium
это TWinControl.