Send keys event dont work with dot
Posted: Thu Mar 05, 2020 3:05 pm
Hi Guys, I need some help please. I am using this code to send keys to a form:
procedure TForm1.name(ref_name: string);
var
i: Integer;
TempKeyEvent: TCefKeyEvent;
begin
for i := 1 to length(ref_name) do
begin
// WM_KEYDOWN
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := 0;
TempKeyEvent.windows_key_code := ord(ref_name);
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);
Chromium1.SendKeyEvent(@TempKeyEvent);
// WM_CHAR
TempKeyEvent.kind := KEYEVENT_CHAR;
Chromium1.SendKeyEvent(@TempKeyEvent);
// WM_KEYUP
TempKeyEvent.kind := KEYEVENT_KEYUP;
Chromium1.SendKeyEvent(@TempKeyEvent);
end;
end;
This code works well but not with dot (.)
Some idea how solve this issue?
Thanks
procedure TForm1.name(ref_name: string);
var
i: Integer;
TempKeyEvent: TCefKeyEvent;
begin
for i := 1 to length(ref_name) do
begin
// WM_KEYDOWN
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := 0;
TempKeyEvent.windows_key_code := ord(ref_name);
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);
Chromium1.SendKeyEvent(@TempKeyEvent);
// WM_CHAR
TempKeyEvent.kind := KEYEVENT_CHAR;
Chromium1.SendKeyEvent(@TempKeyEvent);
// WM_KEYUP
TempKeyEvent.kind := KEYEVENT_KEYUP;
Chromium1.SendKeyEvent(@TempKeyEvent);
end;
end;
This code works well but not with dot (.)
Some idea how solve this issue?
Thanks