Переход по ячейкам в TStringGrid по клавиши Enter как по Tab



Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;
end;

Далее: Покрашенный StringGrid »»