Las celdas de un StringGrid no tienen eventos
-------------------------------------------------------
La clase TCustomGrid (de la cual deriva TStringGrid) tiene el método GetEditLimit que sirve para establecer la longitud máxima del InPlaceEditor -el TEdit que se usa conforme nos movemos por las celdas.
Tendrías que redefinir ese método en un derivado de TStringGrid. Una manera fácil de hacerlo sin tener que crear e instalar un nuevo componente es declarando un descendiente homónimo
antes de la declaración del formulario:
Código Delphi
[-]
type
TStringGrid = class(Grids.TStringGrid)
protected
function GetEditLimit: Integer; override;
end;
TForm1 = class(TForm)
...
end;
Y defines el método así (por ejemplo):
Código Delphi
[-]
function TStringGrid.GetEditLimit: Integer;
begin
if Col = 1 then
Result := 5
else
Result := 0;
end;
// Saludos