MaskEdit: check if control can be focussed before focussing when validation fails in DoExit. Issue #0030482. Patch by Lutz Mändle.

git-svn-id: trunk@52837 -

lcl/maskedit.pp

@@ -1778,7 +1778,9 @@ begin
         FValidationFailed := False;
       end ;
     finally
-      if FValidationFailed then
+      //also check if control can be focussed, otherwise risk an exception while
+      //handling an exception, issue #0030482
+      if FValidationFailed and CanSetFocus then
       begin
         //debugln('TCustomMaskedit.DoExit: Validation failed');
         SetFocus;