Assign focus to Edit when component receives focus

Author: plaintool

src/TagEdit.pas

@@ -245,6 +245,7 @@   TCustomTagEdit = class(TCustomControl)
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    procedure SetFocus; override;
     procedure AddTag(const ATag: string; AEditing: boolean = False);
     function RemoveTag(const ATag: string; AConfirm: boolean = False): boolean;
     function Focused: boolean; override;
@@ -500,6 +501,12 @@ destructor TCustomTagEdit.Destroy;
   inherited Destroy;
 end;
 
+procedure TCustomTagEdit.SetFocus;
+begin
+  inherited;
+  SetFocusOnEdit;
+end;
+
 function TCustomTagEdit.GetTags: TStringList;
 begin
   Result := FTags;
@@ -687,7 +694,8 @@ procedure TCustomTagEdit.SetSuggestedButtonGlyph(AValue: TBitmap);
 
 procedure TCustomTagEdit.SetFocusOnEdit;
 begin
-  if Self.Visible and FEdit.Visible and FEdit.CanFocus then FEdit.SetFocus;
+  if Visible and FEdit.Visible and FEdit.CanFocus then
+    FEdit.SetFocus;
 end;
 
 procedure TCustomTagEdit.UpdateEditPosition;
@@ -1423,9 +1431,11 @@ procedure TCustomTagEdit.CheckListItemChecked(Sender: TObject; Index: integer; C
       RemoveTag(FCheckListButton.Items[Index]);
 
     try
-      Application.ProcessMessages;
       if FUpdatePopup and FCheckListButton.PopupVisible then
+      begin
+        Application.ProcessMessages;
         FCheckListButton.UpdatePopupForm;
+      end;
     finally
       FUpdatePopup := False;
     end;
@@ -1450,9 +1460,11 @@ procedure TCustomTagEdit.CheckListAfterBulkChange(Sender: TObject);
       if Length(FCheckListRemoved) > 0 then
         RemoveTag(FCheckListRemoved);
 
-      Application.ProcessMessages;
       if FUpdatePopup and FCheckListButton.PopupVisible then
+      begin
+        Application.ProcessMessages;
         FCheckListButton.UpdatePopupForm;
+      end;
     finally
       FUpdatePopup := False;
       FCheckListInBulk := False;