<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><br><br>--- El <b>lun 20-jun-11, Ismael L. Donis García <i><ismael@citricos.co.cu></i></b> escribió:<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>De: Ismael L. Donis García <ismael@citricos.co.cu><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" <lazarus-es@lists.lazarus.freepascal.org><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: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><div> 
</div></blockquote></td></tr></table>