Code: Select all
procedure TCEFOSRIMEHandler.EnableIME;
begin
{$IFDEF MSWINDOWS}
if Initialized then
begin
{$IFDEF DELPHI16_UP}
ImmAssociateContextEx(FHWND, 0, IACE_DEFAULT);
{$ELSE}
ImmAssociateContext(FHWND, 0);
{$ENDIF}
end;
{$ENDIF}
end;
procedure TCEFOSRIMEHandler.DisableIME;
begin
{$IFDEF MSWINDOWS}
if Initialized then
begin
CleanupComposition();
{$IFDEF DELPHI16_UP}
ImmAssociateContextEx(FHWND, 0, 0);
{$ELSE}
ImmAssociateContext(FHWND, 0);
{$ENDIF}
end;
{$ENDIF}
end;