pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Bug fix #53

Browse Source
This commit is contained in:
Salvador Díaz Fau
2017-09-08 17:27:05 +02:00
parent f7ca8a7a93
commit 3a83a13639
20 changed files with 211 additions and 401 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
demos/DOMVisitor/uDOMVisitor.pas
View File

@@ -134,6 +134,8 @@ procedure TDOMVisitorFrm.Chromium1ProcessMessageReceived(Sender: TObject;
const browser: ICefBrowser; sourceProcess: TCefProcessId;
const message: ICefProcessMessage; out Result: Boolean);
begin
Result := False;
if (message = nil) or (message.ArgumentList = nil) then exit;
if (message.Name = DOMVISITOR_MSGNAME) then
@@ -141,9 +143,7 @@ begin
// Message received from the DOMVISITOR in CEF
ShowStatusText('DOM Visitor result text : ' + message.ArgumentList.GetString(0));
Result := True;
end
else
Result := False;
end;
end;
procedure TDOMVisitorFrm.FormShow(Sender: TObject);