Tab как Enter в StringGrid
Материал из DRKB
Tab как Enter в StringGrid[править | править код]
Данный код переводит ввод на другую колонку. При достижении конца колонок, ввод перемещается на следующую строку. При достижении самого конца сетки, управление перемещается в ее самое начало - естественно, вы можете изменить это поведение, и передавать управление в этом случае другому элементу управления.
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
with StringGrid1 do
begin
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;
end;
end;
Source: http://delphiworld.narod.ru/
ID: 01094
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
with StringGrid1 do
begin
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;
end;
end;
Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 01100