Данный код переводит ввод на другую колонку. При достижении конца колонок,
ввод перемещается на следующую строку. При достижении самого конца сетки,
управление перемещается в ее самое начало - естественно, вы можете изменить это
поведение, и передавать управление в этом случае другому элементу
управления.
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
beginif Key = #13 thenwith StringGrid1 doif Col < ColCount - 1 then{следующая колонка!}
Col := Col + 1
elseif Row < RowCount - 1 thenbegin{следующая строка!}
Row := Row + 1;
Col := 1;
endelsebegin{Конец сетки! - Снова перемещаемся наверх!}
Row := 1;
Col := 1;
{или вы можете передать управление другому элементу управления}end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Tab как Enter в StringGrid", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!