diff --git a/source/apphelpers.pas b/source/apphelpers.pas index 6ef718ee..653f9b67 100644 --- a/source/apphelpers.pas +++ b/source/apphelpers.pas @@ -3554,7 +3554,8 @@ end; procedure TWinControlHelper.TrySetFocus; begin try - if Enabled and CanFocus then + if Enabled + and CanFocus then SetFocus; except on E:EInvalidOperation do