<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.19046">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>Todavía siguen los problemas con la
propiedad </FONT><FONT face="Times New Roman">MaxLength</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial>Ahora me da el mismo error (SIGSEGV) en la línea 4247 del
archivo control.ini cuando abro y cierro el formulario 2 veces, si lo abro una
sola vez no da error al cerrar, pero si lo abro una segunda vez al cerrarlo por
segunda vez me da el error en </FONT><FONT face=Arial>la línea es la que
sigue:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>inherited Destroy;</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Verifiqué que es la propiedad <FONT
face="Times New Roman">MaxLength </FONT>Ya que comenté esa parte del código
y no da error al cerrar por segunda vez. Tengo lo siguiente:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>procedure Tfcaptar.dbgSelectEditor(Sender: TObject;
Column: TColumn;<BR> var Editor: TWinControl);<BR>begin<BR> if
(Editor <> nil) then begin<BR> if (fconta.RegOpe = 'CP')
then<BR> begin<BR> if
(Column.Index = 0) then<BR>
TCustomEdit(Editor).CharCase :=
ecUppercase<BR> else<BR>
TCustomEdit(Editor).CharCase :=
ecNormal;<BR> end<BR> else if (fconta.RegOpe
= 'CL') then<BR> begin<BR>
if (Column.Index < 2) then<BR>
TCustomEdit(Editor).MaxLength := 3<BR> else
if (Column.Index < 4) then<BR>
TCustomEdit(Editor).MaxLength := 7<BR> else
if ((Column.Index > 5) and (Column.Index < 10))
then<BR> TCustomEdit(Editor).MaxLength :=
35;<BR> end<BR> else if (fconta.RegOpe =
'CC') then begin<BR> if (Column.Index = 0)
then<BR> TCustomEdit(Editor).MaxLength :=
3<BR> else if (Column.Index = 1) then<BR>
TCustomEdit(Editor).MaxLength := 35<BR>
else<BR> TCustomEdit(Editor).MaxLength :=
1;<BR> end;<BR> end;<BR>end;</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Saludos Reiterados</FONT></DIV>
<DIV><FONT size=2 face=Arial>=========<BR>|| ISMAEL ||<BR>=========</FONT></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=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> Monday, June 20, 2011 5:30 PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Conocer si está
seleccionado el texto en una celda de un TDBGrid en el evento KeyDown</DIV>
<DIV><BR></DIV>
<TABLE border=0 cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD vAlign=top><BR><BR>--- El <B>lun 20-jun-11, Ismael L. Donis García
<I><<A
href="mailto:ismael@citricos.co.cu">ismael@citricos.co.cu</A>></I></B>
escribió:<BR>
<BLOCKQUOTE
style="BORDER-LEFT: rgb(16,16,255) 2px solid; PADDING-LEFT: 5px; MARGIN-LEFT: 5px"><BR>De:
Ismael L. Donis García <<A
href="mailto:ismael@citricos.co.cu">ismael@citricos.co.cu</A>><BR>Asunto:
Re: [Lazarus-es] Conocer si está seleccionado el texto en una celda de
un TDBGrid en el evento KeyDown<BR>A: "Spanish version of Lazarus
List" <<A
href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</A>><BR>Fecha:
lunes, 20 de junio de 2011, 15:22<BR><BR>
<DIV>
<DIV><FONT face=Arial>Detallo a continuación:</FONT></DIV>
<DIV> </DIV>
<DIV>TCustomEdit(Editor).CharCase := ecUppercase; //
Perfecto<BR></DIV>
<DIV>TCustomEdit(Editor).MaxLength // da error si presiona la
tecla escape 2 veces después de haber entrado en edición. El error lo
da en la línea:</DIV>
<DIV> </DIV>
<DIV><FONT
face=Arial>TWSCustomEditClass(WidgetSetClass).SetMaxLength(Self,
Value); // (línea 338)<BR></FONT></DIV>
<DIV><FONT face=Arial>del procedimiento:</FONT></DIV>
<DIV><FONT face=Arial> </DIV></FONT></DIV></BLOCKQUOTE>
<DIV id=yiv1133418415>
<DIV><FONT face=Arial>Simplemente checa el editor no sea nil antes de
llamar SetMaxLength<BR></FONT></DIV>
<DIV><FONT face=Arial><BR></FONT></DIV>
<DIV><FONT face=Arial>if Editor<>nil then begin</FONT><FONT
face=Arial><BR></FONT></DIV>
<DIV>
<DIV> TCustomEdit(Editor).CharCase := ecUppercase;<BR></DIV>
<DIV> TCustomEdit(Editor).MaxLength := x;</DIV><FONT
face=Arial>end;<BR></FONT></DIV>
<DIV><FONT face=Arial><BR></FONT></DIV>
<DIV>Jesus Reyes A.<BR></DIV></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: rgb(16,16,255) 2px solid; PADDING-LEFT: 5px; MARGIN-LEFT: 5px">
<DIV></DIV></BLOCKQUOTE></TD></TR></TBODY></TABLE>
<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>