Tab как Enter в StringGrid

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

Code:

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;

Code:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then

with StringGrid1 do

if Col then {next column}

Col := Col + 1

else if Row then

begin {next Row}

Row := Row + 1;

Col := 1;

end

else

begin {End of Grid- Go to Top again}

Row := 1;

Col := 1;

end;

Новые статьи

перехватывать горячие клавиши в StringGrid?

Случайные статьи

перехватывать горячие клавиши в StringGrid?

Клавиатура