Issue with edDateEdit editor

VCL TMS VCL UI Pack
1

TMS Component Pack 8.1.3.1
Delphi 10 Seattle update 1
Windows 10 x64

Hi,
there is an issue with edDateEdit (and maybe other in place edits) editor when
MouseActions.DirectDateDrop := True;
MouseActions.DirectDateClose := True;
Navigation.AdvanceOnEnter := True;

To reproduce create a new project with a AdvStringGrid and use the code provided below.

Start the project and
- press enter (you wil be in edition on first column)
- press enter again (edit is done and you will be on second column with the date picker showing)
- press enter again (date is selected and set into the cell)
The problem is that after that, the grid no longer has focus so you can no longer navigate the grid with keyboard.

Is this something that can be fixed?

My workaround for the time being is to use GrilleEditCellDone event with the folowing code:
    if not (Screen.ActiveControl = FGrille) and FGrille.CanFocus then
     begin
        FGrille.SetFocus;
     end;
    
Thanks!

Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
   AdvStringGrid1.FixedCols := 0;
   AdvStringGrid1.Options := AdvStringGrid1.Options + [goEditing];
   AdvStringGrid1.MouseActions.DirectDateDrop := True;
   AdvStringGrid1.MouseActions.DirectDateClose := True;
   AdvStringGrid1.Navigation.AdvanceOnEnter := True;
   AdvStringGrid1.OnGetEditorType := AdvStringGrid1GetEditorType;
end;

procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol,
  ARow: Integer; var AEditor: TEditorType);
begin
   if ACol = 1 then
   begin
      AEditor := edDateEdit;
   end;
end;

2

Made a mistake on last post.

GrilleEditCellDone = Grid1EditingDone

However, when doing this, the column is not changed to the next one.

3

We traced & solved this issue. The next update will address this.