<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=utf-8" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18975">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>Perdona la ignorancia, pero como lo
preguntaría?</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>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.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>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.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Yo instancio el formulario de la siguiente
forma:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>procedure Tfconta.mnuarcclartClick(Sender:
TObject);<BR>var<BR> f: Tfcaptar;<BR>begin<BR>
closeforms();<BR> strOpe := 'RT';<BR>
f:=Tfcaptar.Create(Self);<BR> f.Caption :=
self.mnuarcclart.Caption;<BR> f.ShowModal;<BR> f.Free;<BR>
strOpe := '';<BR>end; </FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Y en el formulario pongo:</FONT></DIV><FONT face=Arial>
<DIV><BR>procedure Tfcaptar.FormCreate(Sender: TObject);<BR>var<BR>
strsql: string;<BR>begin<BR> if fconta.RegOpe = 'RT'
then<BR> begin<BR>
ds.FieldDefs.Add('reg', ftSmallint);<BR>
ds.FieldDefs.Add('nombre', ftString, 35);<BR>
ds.Open;<BR> dbg.Columns.Items[0].Title.Caption :=
'Registro';<BR>
dbg.Columns.Items[0].Title.Alignment:=taCenter;<BR>
dbg.Columns.Items[0].Alignment:=taCenter;<BR>
dbg.Columns.Items[0].Width:=60;<BR>
dbg.Columns.Items[1].Title.Caption := 'Nombre';<BR>
dbg.Columns.Items[1].Width:=360;<BR> strsql := 'select
r.reg, r.nombre from screg r where r.cancel=0 order by
r.reg';<BR> dm.p_rssc1(strsql,
true);<BR> while not dm.rssc1.EOF do
begin<BR>
ds.Append;<BR>
ds.FieldByName('reg').AsInteger :=
dm.rssc1.FieldByName('reg').AsInteger;<BR>
ds.FieldByName('nombre').AsString :=
dm.rssc1.FieldByName('nombre').AsString;<BR>
ds.UpdateRecord;<BR>
dm.rssc1.Next;<BR>
end;<BR>
dm.p_rssc1();<BR> if ds.RecordCount > 0 then
ds.First;<BR> end;<BR>end;<BR></DIV>
<DIV>Y me sale la dichosa cruz verde y no el triangulo negro que es con el que
me trabaja bien el siguiente procedimiento:</DIV>
<DIV> </DIV>
<DIV>procedure Tfcaptar.dbgKeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState<BR> );<BR>begin<BR> if key = 13 then
begin<BR> if ((dbg.DataSource.DataSet.EOF) and
(dbg.SelectedIndex = 1) and (not dbg.EditorMode)) then begin<BR>
key:=0;<BR> SelectNext(ActiveControl, True,
True);<BR> end;<BR>
end;<BR>end; </DIV>
<DIV> </DIV></FONT>
<DIV><FONT face=Arial>Saludos Reiterados</FONT></DIV>
<DIV>=========<BR>|| ISMAEL ||<BR>=========</DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=maximiliano.duarte@gmail.com
href="mailto:maximiliano.duarte@gmail.com">Maxi</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, April 28, 2011 12:00
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Conocer el tipo
de cursor que tiene un grid</DIV>
<DIV><BR></DIV>Tenes que preguntar por el modo en que se encuentra la tabla
dsedit, dsinsert, etc. el tipo de cursor refleja el estado de dataset<BR><BR
clear=all><BR>-- <BR>No a la obsolecencia programada: <A
href="http://dimensionargentina.blogspot.com/2011/01/todo-esta-disenado-para-romperse.html"
target=_blank>http://dimensionargentina.blogspot.com/2011/01/todo-esta-disenado-para-romperse.html</A><BR><BR>Twitter:
@nenunocomar<BR>Identi.ca: @nenuno<BR>Linux User #495070<BR>Ubuntu User
#28504<BR><A href="http://miexperiencialinux.blogspot.com/"
target=_blank>http://miexperiencialinux.blogspot.com/</A><BR><BR>El que
pregunta aprende, y el que contesta aprende a responder.<BR>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>