Delphi Seattle TEmbeddedWB

A few changes in Delphi Seattle resulting in access violations and an IDE crash if “EWBEnableFocusControl” is set to false. The IDE crash would occur in all Delphi Versions (Confirmed XE8 and Seattle)

An updated version of the component can be found here.

https://github.com/littleearth/Delphi-EmbeddedWB

Details of the fixes that have been made for those wishing to just patch their own TEmbeddedWB.

The following 2 posts helped resolve the issues:

Fix for EWBEnableFocusControl set to false crash.

unit EwbFocusControl;
class procedure TEWBFocusControl.Activate(Value: Boolean)
{ : TEWBApplicationHook };
const
{$J+}
Instance: TEWBFocusControl = nil;
{$J-}
begin
case Value of
True:
begin
if EWBEnableFocusControl then
begin
if not Assigned(Instance) then
Instance := Create;
end;
end;
False:
begin
if Assigned(EWBAppHookInstance) then
FreeAndNil(EWBAppHookInstance);
if Assigned(Instance) then
FreeAndNil(Instance);
end;
end;
end;

Leave a Reply

Your email address will not be published. Required fields are marked *