TStringGrid切换行时如何取消单元格文本选中或移动光标至末尾

我正在开发一款发票项目，使用TStringGrid做数据录入（选表格控件是为了保证各条目和对应金额对齐）。受最终报表尺寸限制，我把单行单元格的文本长度上限设为47个字符，达到长度后会在onKeyUp事件里自动切到下一行。

最初的实现逻辑非常简单：

procedure TForm1.ngridKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
var
  s, s2:string;
  p, l:Integer;
begin
  if Length(ngrid.Cells[ngrid.col,ngrid.row]) =47 then 
  ngrid.Row:=ngrid.Row+1;
end;

这个版本的逻辑会直接从单词中间拆分内容，我后续做了优化：查找当前单元格文本里最后一个空格的位置，把文本截断到这个空格位置留在当前单元格，剩下的内容移到下一行同列的单元格里，优化后代码如下：

procedure TForm1.ngridKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
var
  s, s2:string;
  p, l:Integer;
begin
  if Length(ngrid.Cells[ngrid.col,ngrid.row]) =47 then
    begin
      s:= ngrid.Cells[ngrid.col,ngrid.row];
      l:= Length(s);
      p:=LastDelimiter(' ',s);
      s2:=RightStr(s,l-p);
      ngrid.Cells[ngrid.col,ngrid.row]:=LeftStr(s,p);
      ngrid.Row:=ngrid.Row+1;
      ngrid.cells[ngrid.col,ngrid.row]:=s2;
    end;
end;

优化后的逻辑可以正常实现不拆分单词的自动换行效果：

但运行时存在一个问题：切到新行并写入剩余文本后，新单元格里的文本默认是全选状态，用户输入下一个字符时会直接清掉单元格原有内容，效果如下：

需要实现：取消新单元格的文本全选状态，或者把输入光标移到单元格内已有文本的末尾。

问题根源是TStringGrid激活单元格编辑状态时，默认会全选单元格内容，给新行单元格赋值后没有重置内置编辑框的选中范围，后续输入就会直接覆盖原有内容。
直接在赋值完成后，获取网格的内置编辑控件，手动把选中起始位置设到文本末尾、选中长度设为0即可，修改后的完整代码如下：

// 记得在uses列表里加入Grids单元，才能访问内置编辑类TInplaceEdit
procedure TForm1.ngridKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
var
  s, s2:string;
  p, l:Integer;
  grid: TStringGrid;
  inplaceEdit: TInplaceEdit;
begin
  grid := Sender as TStringGrid;
  if Length(grid.Cells[grid.Col, grid.Row]) = 47 then
    begin
      s := grid.Cells[grid.Col, grid.Row];
      l := Length(s);
      p := LastDelimiter(' ',s);
      // 补个容错：如果47个字符内没有空格，直接整段换行，避免截断为空
      if p = 0 then p := l;
      s2 := RightStr(s, l-p);
      grid.Cells[grid.Col, grid.Row] := LeftStr(s, p);
      grid.Row := grid.Row + 1;
      grid.Cells[grid.Col, grid.Row] := s2;

      // 核心逻辑：重置编辑框选中状态，光标移到文本末尾
      if grid.EditorMode then
      begin
        inplaceEdit := grid.Editor as TInplaceEdit;
        inplaceEdit.SelStart := Length(inplaceEdit.Text);
        inplaceEdit.SelLength := 0;
      end;
    end;
end;

注意点 #

• 操作内置编辑控件前必须判断EditorMode属性，避免单元格未进入编辑状态时访问空指针报错
• 该方案用VCL原生属性实现，不需要第三方控件，兼容Delphi 7及之后所有VCL版本
• 补充的无空格容错逻辑可以处理连续输入无空格内容（比如长编号、连续符号）的场景，避免出现空单元格异常

内容的提问来源于stack exchange，提问作者Learning