Bueno..
![Roll Eyes (Sarcastic)](http://www.clubdelphi.com/foros/images/smilies/rolleyes.gif)
, intentando y intentando creo que lo he solucionado con el siguiente codigo:
Al crear el formulario....
Código Delphi
[-]procedure TForm1.FormCreate(Sender: TObject);
begin
item:=1;DBGrid1.Columns[0].Color:=clBtnFace;
end;
Al entrar en una celda del DBGrid....(Focus)
Código Delphi
[-]procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if DBGrid1.SelectedIndex=0 then
DBGrid1.SelectedIndex:=1;
end;
Despues de poner al ClientDataSet1 en estado de Insersion
Código Delphi
[-]procedure TForm1.ClientDataSet1AfterInsert(DataSet: TDataSet);
begin
DataSet.Fields[0].AsInteger:=item;
item:=item+1;
if DBGrid1.SelectedIndex=0 then
DBGrid1.SelectedIndex:=1;
end;
Tengan en cuenta que lo que hago es solo una simulacion de que la columna cero(0)del dbGrid es (FixedCols), desde luego seguramente se puede mejorar.
![Wink](http://www.clubdelphi.com/foros/images/smilies/wink.gif)
Para probarlo presionen la tecla
tab en un DBGrid que este enganchado a un ClientDataSet que contenga algunas columnas(Las que ustede quieran con la codicion de que la columna 0 sea de tipo entero y tenga como Nombre "
Item").
Espero que alguien le sirva.
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)
Saludos....