procedure TForm1.TouchEventsChkClick(Sender: TObject);
var
TempParams : ICefDictionaryValue;
begin
try
TempParams := TCefDictionaryValueRef.New;
TempParams.SetBool('enabled', TouchEventsChk.Checked);
if TouchEventsChk.Checked then
TempParams.SetInt('configuration', 'mobile');
FPendingMsgID := DEVTOOLS_SETTOUCHEMULATIONENABLED_MSGID;
Chromium1.ExecuteDevToolsMethod(0, 'Emulation.setEmitTouchEventsForMouse', TempParams);
finally
TempParams := nil;
end;
end;
procedure TForm1.maxTouchPointChkClick(Sender: TObject);
var
TempParams : ICefDictionaryValue;
begin
try
TempParams := TCefDictionaryValueRef.New;
TempParams.SetBool('enabled', EmulateTouchChk.Checked);
if EmulateTouchChk.Checked then
TempParams.SetInt('maxTouchPoints', 5);
FPendingMsgID := DEVTOOLS_SETTOUCHEMULATIONENABLED_MSGID;
Chromium1.ExecuteDevToolsMethod(0, 'Emulation.setTouchEmulationEnabled', TempParams);
finally
TempParams := nil;
end;
end;
Good
Disclosure Statement: This site contains affiliate links, which means that I may receive a commission if you make a purchase using these links. As an eBay Partner, I earn from qualifying purchases.