TFormControlEditLink and advance to next editable cell?

[Schroder_Roger2 (Steven Chesser)]

@brunofierens

In FormControlEditLink.OnSetEditorProperties, you could manipulate the control width. Default it has the width of the cell.

procedure TForm509.PartEditLinkSetEditorProperties(Sender: TObject; Grid: TAdvStringGrid; AControl: TWinControl);
begin
AControl.width := 200; // <-- bad
end;

If i do this, i get an Access Violation error.

I do the same thing, in the SetEditorFocus event, it works and no error.

procedure TForm509.PartEditLinkSetEditorFocus(Sender: TObject; Grid: TAdvStringGrid; AControl: TWinControl);
begin
AControl.width := 200; // <-- good
end;