FIX: Bug [0002661] Error: [TCustomForm.SetFocus] frmFindView:TfrmFindView Can not focus

src/ffindview.lfm

@@ -16,6 +16,7 @@ object frmFindView: TfrmFindView
   ClientHeight = 151
   ClientWidth = 430
   DesignTimePPI = 120
+  OnActivate = FormActivate
   OnShow = FormShow
   Position = poOwnerFormCenter
   LCLVersion = '2.0.12.0'

src/ffindview.pas

@@ -35,6 +35,7 @@ type
     procedure cbBackwardsChange(Sender: TObject);
     procedure cbRegExpChange(Sender: TObject);
     procedure chkHexChange(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure btnFindClick(Sender: TObject);
     procedure cbDataToFindKeyUp(Sender: TObject; var Key: Word;
@@ -61,7 +62,6 @@ begin
         cbDataToFind.Text:= cbDataToFind.Items[0];
     end;
   cbDataToFind.SelectAll;
-  cbDataToFind.SetFocus;
 end;
 
 procedure TfrmFindView.chkHexChange(Sender: TObject);
@@ -75,6 +75,11 @@ begin
   cbCaseSens.Enabled:= not chkHex.Checked;
 end;
 
+procedure TfrmFindView.FormActivate(Sender: TObject);
+begin
+  cbDataToFind.SetFocus;
+end;
+
 procedure TfrmFindView.cbBackwardsChange(Sender: TObject);
 begin
   if cbBackwards.Checked then cbRegExp.Checked:= False