Главная страницаОбратная связьКарта сайта

Tab как Enter в StringGrid

Данный код переводит ввод на другую колонку. При достижении конца колонок, ввод перемещается на следующую строку. При достижении самого конца сетки, управление перемещается в ее самое начало - естественно, вы можете изменить это поведение, и передавать управление в этом случае другому элементу управления.


procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    with StringGrid1 do
      if Col < ColCount - 1 then {следующая колонка!}
        Col := Col + 1
      else if Row < RowCount - 1 then
      begin {следующая строка!}
        Row := Row + 1;
        Col := 1;
      end
      else
      begin {Конец сетки! - Снова перемещаемся наверх!}
        Row := 1;
        Col := 1;
        {или вы можете передать управление другому элементу управления}
      end;
end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Tab как Enter в StringGrid", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info