procedure Button..
var
  i:Integer;
  e:TEdit;
begin
  e:=nil;
  with StringGrid1 do begin
    SetFocus; //焦點移到StringGrid1
    EditorMode:=True; //將TInplaceEdit給顯示或建立出來
    for i:=0 to ComponentCount-1 do
      if Components[i].ClassName='TInplaceEdit' then 
         e:=TEdit(Components[i]); //找出StringGrid的TInplaceEdit元件
    if e<>nil then begin
      e.SelStart :=1; //能使用TEdit的屬性了!!
      e.SelLength:=3;
    end;
  end;
end;

// ================================================================
// 函數名稱：_StrGridEditorMode
// 中文說明：進入 EditorMode , 並將全部字元反白
// 傳 回 值：
// 參    數：
// 機能說明：取代 StringGrid.EditorMode:=true;  並將全部字元反白
// 使用範例：_StrGridEditorMode(StringGrid1);
// ================================================================
procedure _StrGridEditorMode(MyStringGrid:TStringGrid);
var
  i:Integer;
  e:TEdit;
begin
  MyStringGrid.EditorMode:=True;      for i:=0 to MyStringGrid.ComponentCount-1 do
      if MyStringGrid.Components[i].ClassName='TInplaceEdit' then
         e:=TEdit(MyStringGrid.Components[i]); //找出StringGrid的TInplaceEdit元件      if e<>nil then
  begin
    e.SelStart :=0; //能使用TEdit的屬性了!!
    e.SelLength:=Length(e.text);
  end;    end;