Page 1 of 1

Send keys event dont work with dot

Posted: Thu Mar 05, 2020 3:05 pm
by alpires2000
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

Re: Send keys event dont work with dot

Posted: Fri Mar 06, 2020 7:38 am
by salvadordf
Hi,

Run the SimpleOSRBRowser demo and log the parameters passed with SendKeyEvent when you press the dot key.
Use TForm1.AppEventsMessage procedure to log that information and repeat it in your application.

Re: Send keys event dont work with dot

Posted: Fri Mar 06, 2020 10:51 am
by alpires2000
Thanks salvadordf, now works.