No es muy elegante lo que te propongo pero algo es algo:
Código Delphi
[-]
type
TExtDBGrid = class(TDBGrid);
procedure TForm1.Button1Click(Sender: TObject);
begin
DBGrid1.SelectedIndex := 2; Table1.Edit; DBGrid1.SelectedField.FocusControl;
if Assigned(TExtDBGrid(DBGrid1).InplaceEditor) then
TExtDBGrid(DBGrid1).InplaceEditor.SelStart := 0;
end;
Bye