pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Bug fix #93

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-02-25 16:27:53 +01:00
parent b87bbb9a54
commit f1765f7288
4 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
demos/PopupBrowser/uChildForm.pas
View File

@ -161,7 +161,7 @@ procedure TChildForm.HandleSysCharMsg(var Msg: tagMSG; var Handled: Boolean);
var
TempKeyEvent : TCefKeyEvent;
begin
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then
if Panel1.Focused then
begin
TempKeyEvent.kind := KEYEVENT_CHAR;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -183,7 +183,7 @@ procedure TChildForm.HandleSysKeyDownMsg(var Msg: tagMSG; var Handled: Boolean);
var
TempKeyEvent : TCefKeyEvent;
begin
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then
if Panel1.Focused then
begin
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -205,7 +205,7 @@ procedure TChildForm.HandleSysKeyUpMsg(var Msg: tagMSG; var Handled: Boolean);
var
TempKeyEvent : TCefKeyEvent;
begin
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then
if Panel1.Focused then
begin
TempKeyEvent.kind := KEYEVENT_KEYUP;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -227,7 +227,7 @@ procedure TChildForm.HandleKeyDownMsg(var Msg: tagMSG; var Handled: Boolean);
var
TempKeyEvent : TCefKeyEvent;
begin
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then
if Panel1.Focused then
begin
TempKeyEvent.kind := KEYEVENT_RAWKEYDOWN;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);
@ -249,7 +249,7 @@ procedure TChildForm.HandleKeyUpMsg(var Msg: tagMSG; var Handled: Boolean);
var
TempKeyEvent : TCefKeyEvent;
begin
if Panel1.Focused and (Msg.wParam in [VK_BACK..VK_HELP]) then
if Panel1.Focused then
begin
TempKeyEvent.kind := KEYEVENT_KEYUP;
TempKeyEvent.modifiers := GetCefKeyboardModifiers(Msg.wParam, Msg.lParam);