Tab как Enter в StringGrid
Falk0ner, вс, 06/07/2008 - 15:34.
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;
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;
http://delphiworld.narod.ru/ DelphiWorld 6.0
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 again}
Row := 1;
Col := 1;
end;
end;
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 again}
Row := 1;
Col := 1;
end;
end;
Взято с сайта: http://www.swissdelphicenter.ch
Отправить комментарий