stringgrid-перемещать выделенную ячейку стрелками курсора

[lblondy]

как обработать кнопки стрелка вправо, влево, чтобы курсор перескакивал на соседнюю ячейку, а то у меня в стринггрид стоит ограничение(нельзя вводить более 1 символа в ячейку) и когда нажимаешь стрелочку вправо курсор не двигается???

[Sparkman]

опишите - как вы блокируете ввод более одного символа в ячейку

[lblondy]

public
    { Public declarations }
    lastval: string;
<...>

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
if (StrToIntDef (Value, 0) > 9) and (ARow<>4) then //если больше 9 то тогда
    StringGrid1.Cells[ACol, ARow]:= lastval;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
lastval:= StringGrid1.Cells[ACol, ARow];
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sparkman]

Реализовал данный кусочек, все двигается. И направо, и налево, и вверх, и вниз.