<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>1 Millón de Gracias (La verdad que me has ayudado
más de 1 millón)</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Funcionó perfecto, solo le tuve que hacer un
pequeño cambio al código que me mandaste. Y otro cambio más porque yo programé
una tecla caliente que simula el click del botón sin haber dado click en el, por
lo que dicha tecla caliente dispara el botón sin estar este
visible.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Al final quedó de la siguiente forma:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT
face="Courier New, courier, monaco, monospace, sans-serif">...</FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New', 'courier', 'monaco', monospace, sans-serif; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif"><SPAN
class=mark id=misspell-15>type</SPAN><BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif">
<SPAN class=mark id=misspell-16>TCompositeCellEditorAccess</SPAN>=<SPAN
class=mark id=misspell-17>class</SPAN>(<SPAN class=mark
id=misspell-18>TCompositeCellEditor</SPAN>);<BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New', 'courier', 'monaco', monospace, sans-serif; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT
face="Courier New, courier, monaco, monospace, sans-serif">...<BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif"><SPAN
class=mark id=misspell-19>var</SPAN></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif">
<SPAN class=mark id=misspell-20>Editor</SPAN>: <SPAN class=mark
id=misspell-21>TWinControl</SPAN>;</FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT
face="Courier New, courier, monaco, monospace, sans-serif">...</FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
face="Courier New" size=2>Editor := DbGrid1.EditorByStyle(cbsAuto);<BR>if Editor
is TCompositeCellEditor then begin<BR> if
(TCompositeCellEditorAccess(Editor).Visible) then //esto fue lo que agregé por
la tecla caliente<BR>
TCompositeCellEditorAccess(Editor).GetActiveControl.SetFocus;<BR>end;<BR></FONT></DIV></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Jesus creo que sería bueno que le implementaras una
propiedad al <SPAN class=mark id=misspell-2><FONT face="Times New Roman"
size=3>TCompositeCellEditor <FONT face=Arial size=2>para que el botón no tomara
el focus. Ósea una propiedad como: TCustomBoton.TabStop que si pones como valor
False siempre deje el foco en el TCustomEdit y si le asignas True que si deje el
focu en el boton. Que crees?. Podrás implementar dicha
propiedad?</FONT></FONT></SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=mark></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN class=mark>Perdona que con tu ayuda te asigne
trabajo, pero creo que esto lo que trae consigo es un sistema mejor por lo que
repercute en el bien de todos.</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Saludos Cordiales</FONT></DIV>
<DIV>========<BR>| ISMAEL |<BR>========<BR>Only for the small landowners and
Cubans companies<BR>Website: <A
href="http://www.sisconge.byethost15.com">www.sisconge.byethost15.com</A><BR>
<A href="http://www.sisconge.hol.es">www.sisconge.hol.es</A><BR></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=jesusrmx@yahoo.com.mx href="mailto:jesusrmx@yahoo.com.mx">Jesus
Reyes</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> Friday, August 02, 2013 4:55
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Error SIGSEGV
en TDBGridencolumna conpropiedad .ButtonStyle:=cbsEllipsis</DIV>
<DIV><BR></DIV>
<DIV
style="FONT-SIZE: 12pt; COLOR: #000; FONT-FAMILY: times new roman, new york, times, serif; BACKGROUND-COLOR: #fff">
<DIV><SPAN>Alfred seguramente se refería a usar la misma técnica de la "clase
de acceso" usada en el evento OnSelectEditor, solo que hay una diferencia, en
el evento OnSelectEditor, la instancia del editor viene dada en el parámetro
"Editor", pero como el evento OnEditButtonClick es solo una notificación y no
proporciona información a cerca del editor (el parámetro Sender del
OnEditButtonClick es el grid especifico que originó la notificación) lo que se
necesita es un medio alternativo de obtener el editor. Justo para eso
existe la función EditorByStyle, y su uso sería algo así
como:<BR></SPAN></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><SPAN><BR></SPAN></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT
size=2>procedure DBGrid1EditButtonClick(Sender:
TObject);</FONT></FONT><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT
size=2><BR></FONT></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT
size=2>var</FONT></FONT><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT
size=2><BR></FONT></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT size=2>
Editor:</FONT></FONT><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT size=2>
TWinControl;</FONT></FONT><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT
size=2><BR></FONT></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT
size=2>....</FONT></FONT><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT
size=2><BR></FONT></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT size=2>
Editor := DbGrid1.EditorByStyle(cbsAuto); </FONT></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT size=2>
if Editor is TCompositeCellEditor then begin</FONT></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT size=2>
...<BR></FONT></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT size=2>
</FONT></FONT></SPAN><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT
size=2>TCompositeCellEditor(Editor).GetActiveControl.SetFocus;</FONT></FONT></SPAN><SPAN><FONT
face="Courier
New, courier, monaco, monospace, sans-serif"><FONT
size=2><BR></FONT></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT size=2>
...<BR></FONT></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT size=2>
end;</FONT></FONT></SPAN><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT
size=2><BR></FONT></FONT></SPAN></DIV>
<DIV
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><SPAN><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><FONT
size=2><BR></FONT></FONT></SPAN></DIV>
<DIV>Para poder usar cbsAuto el unit Grids debe estar en el uses. cbsAuto en
un DbGrid nos regresa el editor seleccionado para el campo (o columna)
actualmente seleccionado.</DIV>
<DIV><BR></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent">No
lo probé pero debería funcionar :)</DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><BR></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent">Saludos.</DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><BR></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New
Roman'; BACKGROUND-COLOR: transparent">Jesus Reyes A.</DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><BR></DIV>
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: 'times new roman', 'new york', 'times', serif">
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: 'times new roman', 'new york', 'times', serif">
<DIV dir=ltr>
<HR SIZE=1>
<FONT face=Arial size=2><B><SPAN style="FONT-WEIGHT: bold">De:</SPAN></B>
Ismael L. Donis Garcia <ismael@citricos.co.cu><BR><B><SPAN
style="FONT-WEIGHT: bold">Para:</SPAN></B> Spanish version of Lazarus List
<lazarus-es@lists.lazarus.freepascal.org> <BR><B><SPAN
style="FONT-WEIGHT: bold">Enviado:</SPAN></B> Jueves, 1 de agosto, 2013
16:01:53<BR><B><SPAN style="FONT-WEIGHT: bold">Asunto:</SPAN></B> Re:
[Lazarus-es] Error SIGSEGV en TDBGrid encolumna conpropiedad
.ButtonStyle:=cbsEllipsis<BR></FONT></DIV>
<DIV class=y_msg_container><BR>Me podrías explicar esto un poquito más (yo
nunca he trabajado con delphi, <BR>es más nunca lo he instalado), vengo de
Visual Estudio, o mejor dicho quiero <BR>venir. Y por tal motivo este entorno
y modo de hacer las me resulta bastante <BR>estraño.<BR><BR>Yo en el
formulario lo que tengo es el evento:<BR>procedure
DBGrid1EditButtonClick(Sender: TObject);<BR><BR>Si en ese evento
pongo:<BR>TCustomEdit.Focused := True;<BR><BR>Me da el
error:<BR>ufcini.pas(760,23) Error: Only class class methods, class properties
and <BR>class variables can be accessed in class methods<BR>ufcini.pas(760,23)
Error: Only class methods, class properties and class <BR>variables can be
referred with class references<BR><BR></DIV></DIV></DIV></DIV>
<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>