Issue with EditLinks


Windows 7x64

Delphi 10.1 Update 2

TMS Component Pack


We have a problem with the AdvStringGrid with an EditLink. We cannot reproduce this problem with version, but we can in

(We do not have versions between and




Create a project with a form containing an AdvStringGrid with 2 columns and 3 rows.


Use  AsgLinks

Create a field variable FEditLink: TEditLink


On the form Create add this code:


procedure TForm1.FormCreate(Sender: TObject);


   FEditLink := TAdvEditEditLink.Create(nil);

   advstrngrd1.GridCells[1,1] := 'AAA';

   advstrngrd1.GridCells[1,2] := 'BBB';



Add an OnGetEditorType event to the grid with this code:


procedure TForm5.AdvStringGrid1GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType);


   if (ACol = 1) and (ARow > 0) then


      AEditor := edCustom;

      AdvStringGrid1.EditLink := FEditLink;




Add an CanEditCell event with this code:


procedure TForm5.AdvStringGrid1CanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean);


   CanEdit := (ACol = 1) and (ARow > 0);




Now, click twice on the cell containing 'AAA'. You should now be able to edit it.

Now click once on the cell containing 'BBB'.


Actual result: Cell 'BBB' is in edition mode with the text of Cell 'AAA' in it.

Expected result: Cell 'BBB' is selected but not in edition mode. (Like v8.8.4.1 or when AEditor is set to edNormal)


Is this a new desired behavior? If so, how can we circumvent it?


Thank you for your time.

We could reproduce this and we're investigating this and will report

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