Code: Select all
procedure sendCtrlTab(Chromium: TChromium);
var
TempKeyEvent : TCefKeyEvent;
begin
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := EVENTFLAG_SHIFT_DOWN;
TempKeyEvent.windows_key_code := 9;
TempKeyEvent.native_key_code := 0;
TempKeyEvent.is_system_key := ord(False);
TempKeyEvent.character := #0;
TempKeyEvent.unmodified_character := #0;
TempKeyEvent.focus_on_editable_field := ord(False);
Chromium.SendKeyEvent(@TempKeyEvent);
TempKeyEvent.kind := KEYEVENT_KEYUP;
Chromium.SendKeyEvent(@TempKeyEvent);
end;
Code: Select all
procedure Tfrom1.Button1Click(Sender: TObject);
begin
sendCtrlTab(Chromium1);
end;
Code: Select all
procedure TbrowseFrm.Chromium1Jsdialog(Sender: TObject;
const browser: ICefBrowser; const originUrl: ustring;
dialogType: TCefJsDialogType; const messageText, defaultPromptText: ustring;
const callback: ICefJsDialogCallback; out suppressMessage, Result: Boolean);
begin
Result := true;
sendCtrlTab(Chromium1);
end;
Code: Select all
procedure Tfrom1.Button2Click(Sender: TObject);
begin
Chromium1.ExecuteJavaScript('alert("send keyevent");','',0);
end;