Bueno..
, 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.
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.
Saludos....