[Lazarus-es] Conocer si está seleccionado el texto en una celda de un TDBGrid en el evento KeyDown

[Jesus Reyes]

--- El lun 20-jun-11, Ismael L. Donis García <ismael en citricos.co.cu> escribió:

De: Ismael L. Donis García <ismael en citricos.co.cu>
Asunto: Re: [Lazarus-es] Conocer si está seleccionado el texto en una celda de un TDBGrid en el evento KeyDown
A: "Spanish version of Lazarus List" <lazarus-es en lists.lazarus.freepascal.org>
Fecha: lunes, 20 de junio de 2011, 15:22



 
 
 
Detallo a continuación:
 
TCustomEdit(Editor).CharCase := ecUppercase;  // Perfecto

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:
 
TWSCustomEditClass(WidgetSetClass).SetMaxLength(Self, 
Value); // (línea 338)

del procedimiento:
 Simplemente checa el editor no sea nil antes de llamar SetMaxLength

if Editor<>nil then begin

  TCustomEdit(Editor).CharCase := ecUppercase;

  TCustomEdit(Editor).MaxLength := x;
end;

Jesus Reyes A.
 
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110620/1d4b52ec/attachment-0002.html>