Para cerrar el modo edit, sin cerrar la BD puedes usar el comando MiBase.Post <br><br><div class="gmail_quote">2011/4/28 Ismael L. Donis García <span dir="ltr"><<a href="mailto:ismael@citricos.co.cu">ismael@citricos.co.cu</a>></span><br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div 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: 2px solid rgb(0, 0, 0); padding-left: 5px; padding-right: 0px; margin-left: 5px; margin-right: 0px;"><div><div></div><div class="h5">
<div style="font: 10pt arial;">----- Original Message ----- </div>
<div style="font: 10pt arial; background: none repeat scroll 0% 0% rgb(228, 228, 228);"><b>From:</b>
<a title="maximiliano.duarte@gmail.com" href="mailto:maximiliano.duarte@gmail.com" target="_blank">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" target="_blank">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>
</div></div><p>
</p><hr><div class="im">
<p></p>_______________________________________________<br>Lazarus-es mailing
list<br><a href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a><br><a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</div></blockquote></div>
<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div><br>