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 Actions1 Releases Activity

Fixed TChromium.OnClose event declaration in JSRTTIExtension demo

Browse Source
This commit is contained in:
Salvador Díaz Fau 2019-05-16 16:56:05 +02:00
parent 2173c94bf0
commit 8e084c205f
1 changed files with 3 additions and 3 deletions

6
demos/JavaScript/JSRTTIExtension/uJSRTTIExtension.pas

@ -96,7 +96,7 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Chromium1Close(Sender: TObject; const browser: ICefBrowser; procedure Chromium1Close(Sender: TObject; const browser: ICefBrowser;
out Result: Boolean); var aAction : TCefCloseBrowserAction);
procedure Chromium1BeforeClose(Sender: TObject; procedure Chromium1BeforeClose(Sender: TObject;
const browser: ICefBrowser); const browser: ICefBrowser);
protected protected
@ -340,10 +340,10 @@ begin
end; end;
procedure TJSRTTIExtensionFrm.Chromium1Close( procedure TJSRTTIExtensionFrm.Chromium1Close(
Sender: TObject; const browser: ICefBrowser; out Result: Boolean); Sender: TObject; const browser: ICefBrowser; var aAction : TCefCloseBrowserAction);
begin begin
PostMessage(Handle, CEF_DESTROY, 0, 0); PostMessage(Handle, CEF_DESTROY, 0, 0);
Result := True; aAction := cbaDelay;
end; end;
procedure TJSRTTIExtensionFrm.FormCloseQuery( procedure TJSRTTIExtensionFrm.FormCloseQuery(