Como podr�a conocer el tipo de cursor que tiene un grid en tiempo de ejecuci�n?

Quiero saber si tiene un triangulo negro un una rayita vertical verde?

Eso lo necesito porque cuando tiene la rayita me dice que est� en el final del registro cuando est� en el �ltimo registro, sin embargo con el triangulo negro si me funciona como quiero.

Tengo un grid que cuando lo cargo me sale de la siguiente forma:

y necesito que me salga de la siguiente:

Saludos Cordiales
=========
|| ISMAEL ||
=========
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110428/8db6f3e0/attachment-0001.html> ------------ pr�xima parte ------------
A non-text attachment was scrubbed...
Name: no disponible
Type: image/png
Size: 6063 bytes
Desc: no disponible
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110428/8db6f3e0/attachment-0002.png> ------------ pr�xima parte ------------
A non-text attachment was scrubbed...
Name: no disponible
Type: image/png
Size: 6115 bytes
Desc: no disponible
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110428/8db6f3e0/attachment-0003.png>

Tenes que preguntar por el modo en que se encuentra la tabla dsedit, dsinsert, etc. el tipo de cursor refleja el estado de dataset

Perdona la ignorancia, pero como lo preguntar�a?

No se porque me cae con el cursor de la rayita si no mando a editar nada, trat� de hacer un ejemplo con lo mismo, pero m�s peque�o y sin embargo me sale el grid con el triangulo negro poniendo lo mismo que el proyecto original.

No entiendo porque en uno me sale un cursor y en otro otro, el cual no me coge bien si estoy al final del dataset o no.

Yo instancio el formulario de la siguiente forma:

procedure Tfconta.mnuarcclartClick(Sender: TObject);
var
  f: Tfcaptar;
begin
  closeforms();
  strOpe := 'RT';
  f:=Tfcaptar.Create(Self);
  f.Caption := self.mnuarcclart.Caption;
  f.ShowModal;
  f.Free;
  strOpe := '';
end;

Y en el formulario pongo:

procedure Tfcaptar.FormCreate(Sender: TObject);
var
  strsql: string;
begin
  if fconta.RegOpe = 'RT' then
    begin
      ds.FieldDefs.Add('reg', ftSmallint);
      ds.FieldDefs.Add('nombre', ftString, 35);
      ds.Open;
      dbg.Columns.Items[0].Title.Caption := 'Registro';
      dbg.Columns.Items[0].Title.Alignment:=taCenter;
      dbg.Columns.Items[0].Alignment:=taCenter;
      dbg.Columns.Items[0].Width:=60;
      dbg.Columns.Items[1].Title.Caption := 'Nombre';
      dbg.Columns.Items[1].Width:=360;
      strsql := 'select r.reg, r.nombre from screg r where r.cancel=0 order by r.reg';
      dm.p_rssc1(strsql, true);
      while not dm.rssc1.EOF do begin
        ds.Append;
        ds.FieldByName('reg').AsInteger := dm.rssc1.FieldByName('reg').AsInteger;
        ds.FieldByName('nombre').AsString := dm.rssc1.FieldByName('nombre').AsString;
        ds.UpdateRecord;
        dm.rssc1.Next;
      end;
      dm.p_rssc1();
      if ds.RecordCount > 0 then ds.First;
    end;
end;

Y me sale la dichosa cruz verde y no el triangulo negro que es con el que me trabaja bien el siguiente procedimiento:

procedure Tfcaptar.dbgKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  if key = 13 then begin
    if ((dbg.DataSource.DataSet.EOF) and (dbg.SelectedIndex = 1) and (not dbg.EditorMode)) then begin
    key:=0;
    SelectNext(ActiveControl, True, True);
    end;
  end;
end;

Saludos Reiterados
=========
|| ISMAEL ||
=========

Creo que cuando tiene la rayita est� en modo edit, sin importar en qu� registro est�, y cuando est� con el tri�ngulo est� en modo lectura. Si agregas un dbnavigator puedes cambiar los modos a gusto y por lo tanto cambia el indicador (o cursor como lo llamas).
Rub�n.

2011/4/28 Ismael L. Donis Garc�a <ismael en citricos.co.cu>

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110428/aae575d1/attachment.html>

No quiero tener controles que no voy a usar, �sea controles dem�s, tendr�a que tenerlo en visible=false, pero aun as� no se como le podr�a cambiar es estado si no lo tengo visible.

Adem�s no entiendo porque yo pregunto por su estado:

if ((dbg.DataSource.DataSet.EOF) and (dbg.SelectedIndex = 1) and (not dbg.EditorMode)) then begin

El problema es que cuando activo el formulario me cae en estado de edici�n y quisiera por c�digo quitarlo de ese estado, que es lo que no se.

Saludos Reiterados
=========
|| ISMAEL ||
=========

Para cerrar el modo edit, sin cerrar la BD puedes usar el comando MiBase.Post

2011/4/28 Ismael L. Donis Garc�a <ismael en citricos.co.cu>

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110428/8bc8398b/attachment.html>

Perfecto.

Eso era lo que me estaba faltando. No hac�a el Post despu�s del ds.UpdateRecord.

Saludos a To2s
=========
|| ISMAEL ||
=========